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(57) Abstract 

A digital audio transmitter system (10) capable of transmitting high quality, wideband speech over a transmission channel with a 
limited bandwidth such as a traditional telephone line (16). The digital audio transmitter system (10) includes a coder (32) for coding an 
input audio signal to a digital signal having a transmission rate that does not exceed the maximum allowable transmission rate for traditional 
telephone lines and a decoder (40) for decoding the digital signal to provide an output audio signal with an audio bandwidth of wideband 
speech. A coder (32) and a decoder (40) may be provided m a single device (12) to allow two-way communicauon between multiple 
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METHOD AND APPARATUS FOR TRANSMITTING CODED AUDIO 
SIGNALS THROUGH A TRANSMISSION CHANNEL 
WITH LIMITED BANDWIDTH 

RELATED APPLICATION 
The present application relates to co-pending PCT 
application PCT/US96/ 04974, filed April 10, 1996, 
entitled "System For Compression and Decompression of 
5 Audio Signals For Digital Transmission" by the same 

inventor and assigned to the Assignee of the present 
application. The co-pending PCT application noted above 
is incorporated by reference in its entirety along with 
any appendices and attachments thereto. 

10 FIELD OF THE INVENTION 

The present invention relates generally to an 
apparatus and method for transmitting audio signals and 
pertains, more specifically, to an apparatus and method 
for transmitting a high quality audio signal, such as 

15 wideband speech, through a transmission channel having 

a limited bandwidth or transmission rate. 

BACKGROUND OF THE INVENTION 
Human speech lies in the frequency range of 
approximately 7 Hz to 10 kHz. Because traditional 
20 telephone systems only provide for the transmission of 

analog audio signals in the range of about 300 Hz to 
3400 Hz or a bandwidth of about 3 kHz (narrowband 
speech) / certain characteristics of a speaker's voice 
are lost and the voice sounds somewhat muffled. A 
25 telephone system capable of transmitting an audio signal 
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approaching the quality of face-to-face speech requires 
a bandwidth of about 6 kHz (wideband speech) . 

Known digital transmission systems are capable of 
transmitting wideband speech audio signals- However, in 
5 order to produce an output audio signal of acceptable 

quality with a bandwidth of 6 kHz, these digital systems 
require a transmission channel with a transmission rate 
that exceeds the capacity of traditional telephone 
lines . A digital system transmits audio signals by 

10 coding an input audio signal into a digital signal made 

up of a sequence of binary numbers or bits , transmitting 
the digital signal through a transmission channel, and 
decoding the digital signal to produce an output audio 
signal. During the coding process the digital signal is 

15 reduced or compressed to minimize the necessary 

transmission rate of the signal . One known method for 
compressing wideband speech is disclosed in 
Recommendation G.722 (CCITT, 1988) . A system using the 
compression method described in G.722 still requires a 

20 transmission rate of at least 48 kbit/s to produce 

wideband speech of an acceptable quality .... 

Because the maximum transmission rate over 
traditional telephone lines is 28.8 kbit/s using the 
most advanced modem technology, alternative transmission 

25 channels such as satellite or fiber optics would have to 

be used with an audio transmission system employing the 
data compression method disclosed in G.722. Use of 
these alternative transmission channels is both 
expensive , and inconvenient due to their limited 

30 availability/ While fiber optic lines are available, 

traditional copper telephone lines now account for an 
overwhelming majority of existing lines and it is 
unlikely that this balance will change anytime in the 
near future. A digital phone system capable of 

35 transmitting wideband speech over existing transmission 

rate limited telephone phone lines is therefore highly 
". desirable. 
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OBJECTS OF THE INVENTION 
The disclosed invention has various embodiments 
that achieve one or more of the following features or 
objects: 1 

An object of the present invention is to provide 
for the transmission of high quality wideband speech 
over existing telephone networks. 

A further object of the present invention is to 
provide for the transmission of high quality audio 
signals in the range of 20 Hz to at least 5 , 500 Hz over 
existing telephone networks. 

A still further object of the present invention is 
to accomplish data compression : on wideband speech 
signals to produce a transmission rate of 28.8 kbit/ s or 
less without significant loss of audio quality. 

A still further object of the present invention is 
to provide a device which allows a user to transmit and 
receive high quality wideband speech and audio over 
existing telephone networks. 

A still further object of the present invention is 
to provide a portable device which is convenient to use 
and allows ease of connection to existing telephone 

networks. . 

A still further object of the present invention is 
to provide a device which is economical to manufacture. 

A still further object of the present invention is 
to provide easy and flexible programmability. 

gTtMMARV OF THE INVENTION 

In accordance with the present invention; the 
disadvantages of the prior art have been overcome by 
providing a digital audio transmitter system capable of 
transmitting high quality, wideband speech over a 
transmission channel with a limited bandwidth such as a 
traditional telephone line. 

More particularly, the digital audio transmitter 
system of the present invention includes a coder for 

SUBSTITUTE SHEET (RULE 26) 



WO 96/32805 



PCTAJS96/04835 



coding an input audio signal to a digital signal having 
a transmission rate that does not exceed the maximum 
allowable transmission rate for traditional telephone 
lines and a decoder for decoding the digital signal to 
5 provide an output audio signal with an audio bandwidth 

of wideband speech. A coder and a decoder may be 
provided in a single device to allow two-way 
communication between multiple devices. A device 
containing a coder and a decoder is commonly referred to 

10 as a CODEC ( COder / DECoder ) . 

These and other objects, advantages and novel 
features of the present invention, as well as details of 
an illustrative embodiment thereof, will be more fully 
understood from the following description and from the 

15 drawings. 

BRIEF DESCRIPTION OF THE DRAWINGS 
Fig. 1 is a block diagram of a digital audio 
transmission system including a first CODEC and second 
CODEC in accordance with the present invention. 
20 Fig. 2 is a block diagram of a CODEC of Fig. 1. 

Fig. 3 is a block diagram of an audio input/output 
circuit of a CODEC. 

Fig. 4 is a detailed circuit diagram of the audio 
input portion of Fig. 3. 
25 Fig. 5 is - a detailed circuit diagram of the level 

LED's portion of Fig. 3 . 

Fig. 6 is a detailed circuit diagram of the 
headphone amp portion of Fig. 3. 

Fig. 7 is a block diagram of a control processor of 

30 . . a CODEC. . 

Fig. 8 is a detailed circuit: diagram of the 
microprocessor portion of the control processor of Fig. 

' : - 7 . ; •• - . • \ ... y .. 

Fig. 9 is a detailed circuit diagram of the memory 
35 portion of the control processor of Fig. 7. 
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Fig. 10 is a detailed circuit, diagram of the dual 
UART portion of the control processor of Fig. 7. 

Fig. 11 is a detailed circuit diagram of the 
keypad, LCD display and interface portions of the 
control processor of Fig. 7. 

Fig. 12 is a block diagram of an encoder of a 

CODEC. •• 

Fig. 13 is a detailed circuit diagram of the 
encoder digital signal processor and memory portions of 
the encoder of Fig. ; 12. Fig. 14 is a detailed 

circuit diagram of the clock generator portion of the 

encoder of Fig . 12 . 

Fig. 15 is a detailed circuit diagram of the Reed- 
Soloman encoder and decoder portions of Figs. 12 and 16. 

Fig . 16 is a block diagram of a decoder of a CODEC .. 

Fig. 17 is a detailed circuit diagram of the 
encoder digital signal processor and memory portions of 

the decoder of Fig. 16.. 

Fig. 18 is a detailed circuit diagram of the clock 
generator portion of the decoder of Fig. 16. 

Fig. 19 is a detailed circuit diagram of the 
analog/ digital converter portion of the encoder of Fig. 

12. ; .; ,■ V/ 

Fig. 20 is a detailed circuit diagram of the 

digital/analog converter portion of the decoder of Fig . 



16. 



pFTftTT/FT) DFgrPTPTTOM 0? THF PREFERRED EMBODIMENT 

A digital audio transmission system 10, as shown in 
Fig. 1, includes a first CODEC ( coder /DECoder) 12 for 
transmitting and receiving a wideband audio signal such 
as wideband speech to and from a second CODEC 14 via a 
traditional copper telephone line 16 and telephone 
network 17. When transmitting an audio signal, the 
first CODEC 12 performs a coding process on the input 
analog audio signal which includes converting the input 
audio signal to a ; digital signal and compressing the 
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digital signal to a transmission rate of 28.8 kbit/s or 
less. The preferred embodiment compresses the digital 
using a modified version of the I SO/ MPEG (International - 
Standards Organization/Motion Picture Expert Groups) 
5 compression scheme according to the software routine / vV 

disclosed in the microfiche software appendix filed 
herewith. The coded digital signal is sent using 
standard modem technology via the telephone line 16 and 
telephone network 17 to the second CODEC 14. The second 

10 CODEC 14 performs a decoding process on the coded 

digital signal by correcting transmission errors, 
decompressing the digital signal and reconverting it to 
produce an output analog audio signal. 

Fig. 2 shows a CODEC 12 which includes an analog 

15 mixer 20 for receiving, amplifying ,. and mixing an input 

audio signal through a number of input lines. The input 
lines may include a MIC line 22 for receiving an analog 
audio signal from a microphone and a generic LINE 24 
input for receiving an analog audio signal from an audio 

20 playback device such as a tape deck. The voltage level 

of an input audio signal on either the MIC line 22 or 
the generic LINE 24 can be adjusted by a user of the 
CODEC 12 by adjusting the volume controls 26 and 28. 
When the analog mixer 20 is receiving an input signal 

25 through both the MIC line 22 and the generic LINE 24, 

the two signals Will be mixed or combined to produce a 
single analog signal. Audio level LED's 30 respond to 
the voltage level of a mixed audio signal to indicate 
when the voltage exceeds a desired threshold level. A 

30 more detailed description of the analog mixer 20 arid 

audio level LED's 30 appears below with respect to Figs. 
3 and 4. • 

The combined analog signal from the analog mixer 20 . 
is sent to the encoder 32 where the analog signal is 

35 first converted to a digital signal. The sampling rate 

used for the analog to digital conversion is preferably 
one-half the transmission rate of the signal which will 
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ultimately be transmitted to the second CODEC 14 (shown 
in Fig. 1) . After analog to digital conversion, the 
digital signal is then compressed using a modified 
version of the ISO/MPEG algorithm. The ISO/MPEG 
^5 compression algorithm is modified to produce a 

transmission rate of 28.8 kbit/s. This is accomplished 
by the software routine that is disclosed in the 
software appendix. 

The compressed digital signal from the encoder 32 

10 is then sent to an error protection processor 34 where 

additional error protection data is added to the digital 
signal. A Reed-Solomon error protection format is used 
by the error protection processor 34 to provide both 
burst and random error protection. The error protection 

15 processor 34 is described below in greater detail with 

respect to Figs. 12 and 15. 

The compressed and error protected digital signal 
is then sent to an analog modem 36 where the digital 
signal is converted back to an analog signal for 

20 transmitting. As shown in Fig. 1 , this analog signal is 

sent via a standard copper telephone line 16 through a 
telephone network 17 to the second CODEC 14. The analog 
modem 36 is preferably a V.34 synchronous modem. This 
type of modem is commercially available. 

25 The analog modem 36 is also adapted to receive an 

incoming analog signal from the second CODEC 14 (or 
another CODEC) and reconvert the analog signal to a 
digital signal. This digital signal is then sent to an 
error correction processor 38 where error correction 

30 according to a Reed-Soloman format is performed. 

The corrected digital signal is then sent to a 
decoder 40 where it is decompressed using the modified 
version of the ISO/MPEG algorithm as disclosed in the 
software appendix. After decompression the digital , 

35 signal is converted to an analog audio signal. A more 

detailed description of the decoder 40 appears below 
with respect to Figs. .7; 16, 17 and 18. The analog 
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audio signal may then be perceived by a user of the 
CODEC 12 by routing the analog audio signal through a 
headphone amp 42 wherein the signal is amplified •The 
volume of the audio signal at the headphone output line 
5 44 is controlled by volume control 46. 

The CODEC 12 includes a control processor 48 for 
controlling the various functions of the CODEC 12 
according to software routines stored in memory 50. A 
more detailed description of the structure of the 
10 control processor appears below with respect to Figs. 7, 

8,9, 10, and 11. One software routine executed by the 
control processor allows the user of the CODEC 12 to 
initiate calls and enter data such as phone numbers . 
When a call is initiated the control processor sends a 
15 signal including the phone number to be dialed to the 

analog modem 36. Data entry is accomplished via a 
keypad 52 and the entered data may be monitored by 
observation of an LCD 54. The keypad 52 also includes 
keys for selecting various modes of operation of the 
20 CODEC 12. For example, a user may select a test mode 

wherein the control processor 48 controls the signal 
path of the output of the encoder to input of decoder to 
bypass the telephone network allows testing of 
compression and decompression algorithms and their 
related hardware Also stored in memory 50 is the 
compression algorithm executed by the encoder 32 and the 
decompression algorithm executed by the decoder 40. 

Additional LED's 56 are controlled by the control 
processor 48 and may indicate to the user information 
30 such as "bit synchronization" (achieved by the decoder) 

or "power on". An external battery pack 58 is connected 
to the CODEC 12 for supplying power. 

Fig. 3 shows a lower level block diagram of the 
analog mixer 20, audio level LED's 30 and analog 
35 ■ headphone amp 42 as shown in Fig. 2. Figs. 4, 5 and 6 
are the detailed circuit diagrams corresponding to Fig. 



25 
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Referring to Fig.; 3 and 4, line input 210 is an 
; incoming line level input signal while mic input 220 is 
the microphone level input. These signals are amplified 
by a line amp 300 and a mic amp 302 respectively and 
5 .the by line level control 304 and 

mic level control 306 respectively. The microphone and 
line level inputs are fed to the input mixer 308 where 
they are mixed and the resulting combined audio input 
signal 310 is developed. 

10 Referring how to Figs. 3 and 5 , the audio input 

. signal 310 is sent to the normal and overload signal 
detectors, 312 and 314 respectively, where their level 
is compared, to a normal threshold 316 which defines a 
normal volume level and a clip threshold , 318 which 

15 defines an overload volume level. When the audio input 

signal 310 is at a normal volume level a NORM LED 320 is 
lighted. When the audio input signal 310 is at an 
overload volume level a CLIP LED 322 is. lighted. 

Referring now to Figs. 3 and 6, the audio input 

20 signal 310 is fed into the record monitor level control 

324, where its level is adjusted before being mixed with 
the audio output signal 336 from the digital/analog 
converter 442 (shown in Fig. 16 and 20) . . The audio 
output signal 336 is fed to the local monitor level 

25 control 326 before it is fed into the headphone mixer 

amplifier 334. The resulting output signal from the 
; headphone mixer amplifier 334 goes to a headphone output 
connector 338 on the exterior of the CODEC 12 where a 
pair of headphones may be connected. 

30 The audio input signal 310 and audio output signal 

336 are fed to record mix control 328 which is operable 
by the user. The output of this control is fed to a mix 
level control 330 (also operable by a user ) and then to 
the record output amplifier 332. The resulting output 

35 signal of the record output amplifier 332 goes to a 

record output 340 on the exterior of the CODEC 12. 
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Fig. 7 shows a lower level block diagram of the 
control processor 48 (shown in Fig. 2) / The encoder 406 
(referenced as number 32 in Fig. 2) is further described 
in Fig. 12 while the decoder 416. (referenced as number 
5 40 in Fig. 2) is refined in Fig. 16. Figs; 8, 9, 10, 

11, 13, 14, 15, 17, 18, 19 and 20 are detailed circuit 
diagrams. 

; Referring to Figs. 7 and 8 the microprocessor 400 
is responsible for the communication between the user, 

10 via keypad 412 and LCD display 414, and the CODEC 12 . 

The keypad 412 is used to input commands to the system 
while the LCD display 414, is used to display the 
responses of the keypad 412 commands as well as alert 
messages generated by the CODEC 12. 

15 Referring now to Figs. 7 and 9, the RAM (random 

access memory) 402 is used to hold a portion of the 
control processor control software routines. The flash 
ROM (read only memory) 404 holds the software routine 
(disclosed in the software appendix) which controls the 

20 modified ISO/MPEG compression scheme performed by 

encoder DSP 406 and the modified I SO /MPEG decompression 
scheme performed by the decoder DSP 416, as well as the 
remainder of the: control processor control software 
• routines . 

25 Referring now to Figs. 7 and 10, the dual UART 

(universal asynchronous receiver /transmitter) 408 is 
used to provide asynchronous input/ output for the 
control processor 48. The rear panel remote control 
port 409 and the rear panel RS2 3 2 port 411 are used to 

30 allow control by an external computer. This external 

control can be used in conjunction with or instead of 
the keypad 412 and/ or LCD display 414. 

Referring now to Figs. 7 and 11, the programmable 
interval timer circuit 410 is used to interface the 

35 control processor with the keypad and LCD display. 

Referring now to Figs. 7, 8 and 13, the encoder DSP 
(digital signal processor) 434 receives a digital pulse 
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code modulated signal 430 from the analog/digital 
converter 450. The encoder DSP 434 performs the 
modified ISO /MPEG compression scheme according to the 
software routine (described in the software appendix): 
5 stored in RAM memory 436 to produce a digital output 

"'418..,' '/-.'•• 

The A/D clock generation unit 439 is shown in Figs. 
. ... 12 and 14. The function of this circuitry is to provide 

all the necessary timing signals for the analog digital 
10 converter 450 and the encoder DSP 434. 

The Reed-Soloman error correction encoding 

circuitry 438 is shown in Figs. 12 and 15. The function 

of this unit is to add parity information to be used by 

the Reed-Soloman decoder 446 (also shown in Fig. 16) to 
15 repair any corrupted bits received by the Reed-Soloman 

decoder 446. The Reed-Soloman corrector 438 utilizes a 

shortened Reed-Soloman GF( 256) code which might contain; 

for example, code blocks containing 170 eight-bit data 

words and 8 eight-bit parity words. 
20 Referring now to Figs. 7, 16 and 17, the decoder 

DSP 440 receives a digital input signal 422 from the 

modem 36 (shown in Fig . 2) . The decoder DSP 440 

performs the modified ISO/MPEG decompression scheme 

according to the software routine (described in the 
25 software appendix) stored in RAM memory 444 to produce 

a digital output to be sent to the digital/analog 

converter ,442. 

: The D/A clock generation unit 448 is shown in Figs. 

16 and 18. The function of this circuitry is to provide 
30 all the necessary timing signals for the digital /analog 

converter 442 and the decoder DSP 440. 

The analog/digital converter 450, shown in Figs. 12 

and 19, is used to convert the analog input signal 310 

into a PCM digital signal 430. 
35 The digital/analog converter 442 , shown in Figs . 16 

and 20 is used to convert the PCM digital signal from 
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336. /X / "\ : 

The Reed-Soloman error correction decoding 
circuitry 446, shown in Figs. 15 and 16/ decodes a Reed- 
5 Soloman coded signal to correct errors produced during 

transmission of the signal through the model 36 (shown 
in Fig. 2 ) and telephone network. 

Another function contemplated by this invention is 
to allow real time, user operated adjustment of a number 

10 of psycho-acoustic parameters of the I SO /MPEG 

compression/decompression scheme used by the CODEC 12. 
A manner of implementing this function is described in 
applicant's application entitled "System For Adjusting 
Psycho- Acoustic Parameters In A Digital Audio Codec" 

15 which is being filed concurrently herewith (such 

application and related Software Appendix are hereby 
incorporated by reference). Also, applicants 

application entitled "System For Compression And" 
Decompression Of Audio Signals For Digital Transmission" 

20 and related Software Appendix which are being filed 

concurrently herewith are hereby incorporated by 
reference. 

This invention has been described above with 
reference to a preferred embodiment. Modifications and 
25 variations may become apparent to one skilled in the art 

upon reading and understanding this specification. It 
is intended to include all such modifications and 
alterations within the scope of the appended claims. 
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- ic; 1995. Copyright Corporate* Computer Systems 

nclist ..• 
; \DGCST\def . asm • / • 

; . This file contains the definitions for various ; structures. , ; : 

• The following is the minimum value for sib. The ' t«« value ia-'r but- ' 

■ ;. -120 db - • ., 



define MIKDB 
define MINDB 



' - .6228589* 
* -.73' : 



;.-120 dB .in slb's 
: -120 dB in slb's 



Define' the 10 for the watch dog timer for bit set and bit clears 

define WATCK.DOG [ _ ' «7 , x: «SFFE4 ' : M.PBD bit 7 watch dog time: 

The following defines the sampling rates 



I !28 .B 



define SAM32K 

define SAM4 8K 

define SAM16K 

define SAM24K 

define SAMlfiK 



l !28.8 



define SAM24K 
define SAM441K 



i 128.8 



define SAM7YFE 



'0' 

• 2 ' 
•3' 
•2' 
'3' 



•2' 



/sampling rate cf 32 kHz 
; sampling rate cf 48 kHz 

; sampling rate of 14.4 kHz 
; sampling rate of 14.4. kHz 
/sampling rate cf 16 kHz 
; sampling rate of 24 kHz 

.-sampling rate of 44.1 kHz 

•set the sampling rate to 14 . 4 JcHz 



; ! :-!28.8 ' ' 

. The following defines various parameters - 

/ ; define NUMPFFT V ■,'102«;. ; number of points used by the fft 

• The following define the types of maskers. 
SSmsS i. nSt counted, in the nmaskers count. 



define DELETSDMSKR 

define NONTONAL 

define TONAL 

define ENDMSKR : 



'0' ;the masker type of deleted ^ 

'1' ;the masker type of non-tona. 

'2' ;the masker type of tonal 

*3'* ;the last masker, in the array 



- The followino define a. tonal ' structure . . 
i This structure occupies both x an y memory (I) 



define TONALSSIZE 

define TONALSPWRDB 

. define TONALSBIK 

define MAXTONALS, ..- 



•2' .-length of the structure ^ 

•C ; offset to the. tonal power v.i 

»1' ; offset to the bin (x) 1 _ ■ 

'SC ; the maximum number of tonals . 



"'" rhe sv-.- info for the receiver . ; The sync, pattern may 

; The following aef '*he syr Trll SYNCMSK must contain NSYNC is right v ; 
I ?ustifled € ana ^^^^^ *yr.c word.; . MUSI CAK uses 12 1's as 
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the sync word. 



define SYNC 
/define SYNCMSK 
define NSYNC 



'SOOOfff' ;sync pattern, left, justifed , "\ 

'SOOOf f f ; mask high order from get value 
• 12' ;leti sync word Ihdr bits 0-11) 



For f 



raming purposes by the decoder and unpadded frames, 24 bits are used: 
the 1st 12 bits must be l's - ; ' h m h~ G f 



f u A ier 12 bits must oe i s ^ - 

the nlxt 4 bits are the 1st 4 bits of frame header of 

the constant 'C (1100); v "'■ 'V • ' v V* - 

;V skip over the next 4 bits of the frame . header that are reserved :. 

the next f I r bits ^""the frame header that represent sampling rate r 
'01' - 4B K sampling rate 
•. 'io' - 32 K sampling rate 

;!l!28 * 8 : * 00' - 24 K sampling rate (14 .4 K rate) 

[ • *oo* -.16 K sampling rate (14.4 K rate) 

'11' « 24 K sampling rate 

\\ '00' « 16 K sampling rate • 

»•■"'.' ' ■ . ■ ■ . * ' 

• i i'2B' 8 

' * " «»%-r 5 constant 0 bits of the frame header. ■ 

; The s^NCMSK must conform to the right justified framing sync pattern xs used 

; to isolate the sync word. 



•28.8 



; ! ! I2B .8 



define FRAMESYNC_4BK 

define FRAMESYNC_32K 

define FRAMES YNC_2 4 K 

define FRAMESYNC_24K 

define FRAMESYNC_1 6 K 

define FRAMESYNC_1 6K 

de f ine FRAMENSYNC 

define FRAMES YNCMSK 

define GETSYNCMSK 



'$ff fcQ4' 
'$ff fc08* 

'SfffcOC: 
'$fffc00' 
'$fffc00' 
'SfffcOO' 

' 24 ' 

'SffffOf 
'SOOOfff ' 



;sync pattern for 48 K sampling 
; sync pattern for 32 K sampling 

; sync pattern ■ for 24 K sampling 
; sync pattern - 14.4 K sampling 
; sync pattern - 14.4 K sampling 
.sync pattern for 16 K sampling 

;len sync word (hdr bits 0-23) 
;mask reflect framing sync ptn 
;mask high order from getvalue 



; The following define the number of bits used by the fixed part of the / 
? MUSICAM frame. 

• define. NSYST ]{. '20' : ; length of the -system info header 

; define the use of protection check sum or not 



'0' 

' 1 ' 



define CRC N0 — PROTECT 

define CRCTPROTECT 

define NCRCBITS 

define MASKCRC. 

define .CRCJ3UM_BIT_OFFSET 

define CRC.VALUE " " ^00500 

define CRClSTORED_BIT_OFFSET 



• 16 ' .; 

'SOOffff ' 



'16' 



protection does not apply 
; protection applies 

; 16 bit check sum 

; mask high order from getvalue 

; 16th bit offset start at bit rate 
; to calculate checksum 
checksum divisor 
-16' ; bit offset to store checksum 
; following the 32 bit header . 



define the number of bits to ^included in the checksum v \ 
'for the header and the checksum itself 
' for one channel. in mono. 



'[••■■/:■■• 
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define 
define 



ac a its a 

CRC~BITS~B 



'32' 
'142' 



incl bits from her fc checksum 
incl bits "per used channel: 
BALs - 88, SBiLS - S4 



code for the new ISO frame header (these are coded as left justified) 



define 
define 
define 
def ine 



SYSTHDR 
SYSTHDR* 
SYSTHDR 
SYSTHDR 



1 NO PROT 
"l~NO~PROT LOW 
*l~PROTECT~ 
"l PROTECT LOW 



•$00000d' 
'S000005V 
.'SOOOOOC 
'$000004' 



; bits 12 -15: 

; bits 12-15: 

; bits 12-15: 

;. bits 12,-15: 



1101 
0101 
1100 
0100 



bitsf 
bits) 
bits) 
bits)'. 



define . SYSTHDR_2 



'$000000* 



hdr bits 22-23: 



00 



(2 bits) 



ruse Copyright bit to indicate to decoder if CCS compression applies: 
•bit 28: 0 means NO CCS compression 

1 means audio coded with CCS compression 



define SYSTHDR 3 NO CCS COMPRESS 

define SYSTHDR^'CCS.COMPRESS . 

define NSYSTHDR 1 '4' 

define NSYSTHDR 2 . ' 2* '. 

define NSYSTHDR~3 '4' 

define MASKSYSTHDR 1 : ' $00000f ' 

define MASKSYSTHDR - 2 * S000003 ' 

define MASKSYSTHDR~3 ' SOOOOOf' 



•soooooo* 
r $ooo.oo8v 



bits 28-31:0000 (4V 
bits 28-31:1000 (4:) 



; 4 bits for header field 1 
; 2 bits for header field 2. 
; 4 bits for header field 3 
;mask high order from getvalue 
; mask high . order f ram getvalue : 
;mask high order from getvalue 



codes for the type of framing 12 bits in bits 24-25 of frame header) 



define 
define 
define 
define 

define 
define 



FULL_STEREO 
JOINT STEREO 
DUAL " 
MONO 

NFRAMETYPE 
MASKFRAMETYPE 



'SOO000O' ; 00 stereo- left & right channels 

'$000001'- ; 01 stereo intensity-2 channels 

'$000002' ; 10 dual-2 channels 

'$000003'.. ; 11 mono-1 channel only 

♦2* .* 2 bits for type of frame field 

'$000003' ;mas)c high order from gee value 



bit flags for controlling the cype of framing during bit allocation & coding 



define STEREO vs_MONO 

define LEFT vIjUGHT . 

define JOINT FRAMING • 

define JOINT_at_FULL 

define . JOINT_at_SB_BOUND 



define FIRSTJTIME . . % : 

define MASXING_PASS . 

define' HEARING^ PASS 

. define FINAL_PASS 

define AT LIMIT SUB BAND 

define AT~USED SUBBAND 

; define SUMMARY_ALARM ; 



•0' ;0 - 2 channels, 1 » one 

•1' ;0 « left channel, 1 « right 

•2' ;0 • not JOINT STEREO/ 1 - yes 

'3' ; FULL Stereo upgrade allocation 

; 1 « YES at full, 0 - joint 
'4' ;has stereo intensity sub-band 

; boundary been reached: 
' ■'; 0 - NO, 1 - YES , , 
'5' ;did loop, thru allocation tests 

; make any new bit allocation 

; 0 -yes, 1 » no 
. /allocate to masking threshold:. 

; 0 - YES, 1 -no (ALL are be low j )■' 
•7'- ; alloc to threshold cf hearing: 

; 0-YES, 1-no (ALL are. below! 
'8' ; allocate pass of what's left: 

■ . ; 0 - NO, 1 - YES / 

; does NOT req at least 1 allcc 
'10' ; above used sub- band limit 
' 16 ' ;did any alarm get sensed 
■■ '•; 0. - NO,' 1 - YES ..• 
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define 


PROTECT ' 


'18' 


define 


MONO^OUT^CHANNEL 


'19' 


define. 


MONO_OOT_BOTH 


'20' 


define 


LEFT_SIN£JrfAVE ... 


■ '21' 


define 


EIGHTHS INE_WAVE 


'22' 


define 


LOWjvsJUGH_SAMPLING .... 


'23' 



; decoding overload flag 
define SKF ZERO 



3' 



; should checksum . (CRC16) protect 
; 0 - NO,; 1 « YES 
; output to only one channel:. 
; 0 « left, 1 - right 
; output mono to. both channels: 
; 0 « NO only one, l * YES 
/left channel music vs tone 
; 0 - NO only one , 1 * YES 
; right channel music vs tone 
; 0 - NO only one, 1> YES 
,-encode low or high sample rate : 
; 0 ■ low, 1 « high 



; sensed a zero scale factor 
:; 0 • . no,, i • yes " 



; define bit position flags for decoding frames with the CRC-16 checksum 

define USE_SAVED ". . " "-.'€' V ; checksum failed use saved frame 

define FRAME_SAVED »7* , a good frame was saved for use 

define SAVE_FRAME ' 8 ' ; save this good frame for use 

define USINGjSAVED '9', ; this frame is the saved frame 

define RE FRAME '10* ;cnt bit errors exceeded, reframe 

; define decoder auto selection flags for; 

bit rate (determined by trying to frame at each of the two 

bit rate choices) 
type of audio data (MUSICAM frames or G722) 

(determined by no t. being able to frame at either 
of the two bit rate choices) 
sampling rate (determined from a MUSICAM frame header) 
; (if NOT auto selected, some other switch sets the value) 



define AUTO SELECT_BIT RATE '11' 

define AUTO~SELECT DATAJTYPE '12' 

define AUTO~SELECT~SAMPLE_RATE '13' 

define MUSICAM vs G722 '14' 

define SAMPLE RATE LOW_vs_HIGH '15' 



;0-NO, 1-YES 
;0-N0, 1-YES 
;0«NO, 1-YES . 
;0 -MUSICAM, 1-G722 
;0«low, l-high 



; this flag indicates if CCS. compression applies to get data. asm 

define DECOMPRESS^ PACKED . '16' 

;this flag indicates that the framing process has previously determined 
; that the input data to the MICRO decoder is a stream of MUSICAM frames 

define MUSICAM_INPUT_SET '17' ;0«NO, 1-YES 

/define flag that the current frame has a sync word violation 

def ine NO_SYNC ./ : / 21 ' ■ :/ /■ 

; define flag that determines which. ISO CRC-16 controls to use: 

. . o - OLD controls: seed with 0's and fixed span of bits covered 

1 ' i - NEW controls: seed with F' s and dynamic span over the SBits 



define : CRC OLD vs_NEW 



'22' 
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; dei . nc the! sub-band- allocation At Limit bit flags that control, seie: 



rtion 



define MASKING_LIMIT 
define . HEARING^ LIMIT 
define ALLOCATE_LIMIT- 
define : NO ALLOCATE . 



< 0' 

'1' 

'2* 
•3' 



-1 reached sub-band's masking threshold 
*1 reached sub-band's hearing threshold 
■;1 reached sub-band; s max bit limit 
il NO allocation at this sub -band 



define LIMITSUBBANDS.. '17' 



•sub-bands 0 thru 16 get at least 1 



, /. i " numb<ir 0 f successive frames that a sub-band did not need any bits 
^Uotated ^rl ltuing the sub- band from being allocated 



define. . FRAMELIMIT ; ' 'V ■ 
codes for stereo- intensity subband bound 



define INTENSITY^ 

define INTENSITY'S 

define INTENSITY^ 2 

define . INTENSITY^ 16 



define 
define 



NST INTENS ITY 
MASKSTINTENSITY 



'SO0000O' 
'5000001' 
'$000002' 
'$000003' 



1 $000003' 



(2 bits 25-27 of frame header) 

. oo subbands 4-31 intensity mode 

i 01 subbands B-31 intensity mode 

• 10 subbands 12-31 intensity mode 

i -11 subbands 16-31 intensity mode 

; 2 bits for intensity boundary 
; mask high order from getvalue 



stereo intensity boundary sub-band counts 



define BOUND_4 

define BOUND_8 

define BOUND_12 

define BOUND_l6 

codes for output bit rates 



'4* 
'8' 
'12' 
•16' 



t 0-3 full stereo, 4-31. intensity 
' 0-7 full stereo. 8-31 intensity 
• 0-11 full stereo.. 12-31 intensity 
•0-15 full stereo. 16-31 intensity 



(4 



bits in positions 16-19 of frame header) 



- define . 
define 
define 



r I i 128.8 



define 
define 
define 
define 



128.8 



define 
define 
define . 
define 
define 
define 
define 
" def ine 
define 
define 



BITRATE_FREE 
BITRATE 32 
BITRAT£_48 

BITRATE^.56 
BITRATE_64 
BITRATE 56 
BITRATE_64 

BITRATE 80 : 

BITRATE.96 

BITRATE_.11 2 

BITRATE^.128'. 

BITRATE_160 

BITRATE_192 

BITRATE.2.24 

BITRATE_256 

BITRATE 320 

BITRATE_>84. 



'$000000' 
'5000001' 
•$000002' 

'$000003' 
'$000003' 
'$000003' 
'$000004' 

•$000005' 

'$000006' 

'$000007' 

'$000008' 

'$000009' 

'S00000a' 

'$00 000b' 

'$00000c' . 

•$00000d' 

» soooooe' 



0000 9 unknown kbits/s 

0001 9 32 Jcbits/s . 

0010 9 4B-. kbits/s 

0011 * 28 .8 kbits/s 
0011 * 28.8 kbits/s 
0011 * 56 kbits/s 
0100 9 64 kbits/s 



0101 
0110 
0111. 
1000 
1001 
1010 
1011 
1100 
1101 
1110 



9 80 kbits/s. 

• 96 kbits/s 

• 112 kbits/s 
•128 kbits/s 
9 160 kbits/s 
9 192 kbits/s 
9 224 kbits/s 
9 256 kbitS/s 
9 320 kbits/s 
9 384 kbits/5 



define EITFATE.FREE.LOW '5000000' ' ; 0000 • unknown kbit s7 s 
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aeiine 
define 
■define 
define 
define 
define- 
define ; 
define 
.. define 
define 
define 
define 
define ^ 
define 

"define 
define 



BITRATE_ 
BITRATE 

bitrate 

BITRATE, 

BITRATE 

BITRATE"" 

bitrate] 

BITRATE 
BITRATE 
BITRATE" 
BITRATE 
BITRATE] 
BITRATE 
BITRATE 



8 LOW 
!l? LOW . 
24~LOW : 
32~LOW 

Vo'low 

48~LOW, 
*56~LOW 
"64~LOW 
"80"LOW 
"96"LOW 
"112 LOW 
"i28~LOW 
"144""L0W 
"l60"LOW 
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SOOOODl'". 
..'S00OOC2*' 
' $000003' 
'$000004' 
'$000005* 
' $000006' 
.'$000007* 
'$000008* 
'$000009' 
'S00000a' 
VSOOOQOb' 

• soooooc- 

'SOOOOOd' 

■soooooc 



; 0001 » 8 Kbits /s 

; CC10' « 16.. ;W5itS; S ' 
; .6 CXI « 24 WDltS/S. , 

C100 « 32 kbics/s 
; 0101 » 40. kbits/s . 
; .0110 « 48 kbits/s' 
y .0111 e 56 kbits/s . 

• 1000 • 64 kbits/ s 

• 1001 © 8C kbits/s 

; 1010 » 96 kbits/s ... 

1011 • 112 kbits/s 

; 1100 © 128 kbits/s 

; . 1101 O 144 kbits/s 

; 1110 0 160 kbits/s 



NBITRATE 
MASKKBITRATE 



*4' 

'SOQOOOf ' 



; 4 bits for bit rate code ir. hdr 
imask high order from getvalue . 



codes for input sailing rate ^ bits impositions 20-21 of frame header? 



!26.8 



! :28.e 



define SAMPLE 10 BIT_HIGH . . *1' 

define SAMPLINGRATE 16 'S00OO00' 

define SAMPLINGRATE_24 'SO0O000', 

define SAMPLINGRAT£_1 6 '$000000* 

define SAMPLINGRATE_4 8 -$000001'. 

de f ine SAMPLINGRATE_3 2 ■ ' S 0 0 0 0 0 2 ' 

define 5AMPLINGRATE_24 / $000003 ' 



define NSAMPLERATE '2' 
define MASKNSAMPLERATE ' $000003' 



; 00 ® 14 .4 kHz 

; 00. ® 14 .4 kHz . 

; 00 © 16 kHz 

; 01 © 4 8 kHz 

;. 10 0 32 kHZ 

; 11 © 24 kHz 

; 2 bits for sampling rate in hdr 
•mask high order from getvalue 



define NSBITS 
define MASKNSBITS 



•2'" ; length of the scale factor select 
'$000003' .-mask high order from getvalue 



. fhe following defines the masker structure. _ 
:'; This structure occupies both x an y memory. M) 



define MASKERSSIZE 

define MASKERSPWRDB 

define MASKERSRDPWRDB 

•define MASKERSBIN 

define MASKERSBFREQ 

define MASKERSTYPE 

define MASKERSCRITBND 



'3' ; length of the structure ' .. , 

'0' ' .-offset to masker power (1 for watts 
; and x for dB) ... ... 

'3* . ,-offset to reduced power ir. db,iy) 

• l* -offset to bin number ix» 

.. .-offset to freq'in bark iy). 

•2' ; offset to masker type lx> 

*2> ; offset to maker crital band if noise ;y. 



'.highest number of critical bands for all sampling rates 



: :28.8 



128.8 



define,. NUMMAXCRITBNDS 
if SAMTYPE— SAM16K 
define ... MAXCRITBNDS \ 



'26' 



'21 



; number of critical bands 



i ■: 128.8. 



endif - 
if SAMTYPE- - SAM2 4 K 



X 
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:28 .8 



aefine. 
■define 

endif 



MAXCR ITBNDS 
MAXCRITBNDS 



if SAMTYPE— SAM32K 
define MAXCRITBNDS 
-endif ' • 

if SAMTYPE— SAM4 8 K 
de f ine MAXCRITBNDS 
. endif , 



'21* ... • -.-numoer cf critical bands 
■23' .- ;number cf critical bancs., 



' 24' . ; number of critical bands 



'24'. • ';number of critical bands 



128.8 



I 128.8 



define MAXCRITBNDS 1 € 
define -MAXCRITBNDS~24 
def ine " :• MAXCRITBNDS_1 6 
def ine MAXCRITBNDS_24 : 

define MAXCRITBNDS 32 
define MAXCRITBNDS~4 8 



'21' ; number of critical bands at .14.4 K 

'21' -number of ; critical bands at 14.4 K 

*21': - ,; number of critical, bands at 1£.K 

•23' .-number of critical bands at 24 K ; 

' 24* ; number of critical bands at 32 K ; 

'24' .-number of critical bands at 4 6 K 



rhe following def ines the Aliasing, structure, 
rhis structure only occupies x or y memory 



define ALIASSIZE .'2* 
define ALIASBIN '0' 
define ALIASFWRDB . '1' 



; length of the structure . 
;tm number of aliaser . (0-511) 
; power of the aliaser in sib. 



General things, 



define NUMSUBBANDS 
define NUMB LOCKS 
define NUMPERBLK 
define NUMPERSUBBAND 
def ine/SKF ■' 
define MASKSKF 
define SKFX2 : 
define BINSPERSUBBAND . 
define NUM CHANNELS 
define NUMSNRPOSXTIONS 
define NUMINDEXES 

define MAXSUBBANDS_CCS 
define MINSUBBANDS_CCS 
define MAXSUBBANDS_LO 



.'32' /number of sub-bands 

'3* ;number of blocks per super- frame ; 

'384' number of points per block 

'12* number of points per sub-band 

'6' .-number of bits per scale factor. 
'SC0003f ;mask high order from getvalue . 

'64* ; number of scale factors 

'16'. ; number, of FFT. bins', per subband 

'2' Vtwo channels: left and right 

'18V ;18 Signal-to-Noise position- codes " 

'16 V ;16 position codes Allowed per sub -band 

'30' ;maximum sub-bands to ever be; used 

'4 '. / ■ ; minimum sub- bands to ever be used 

'14' , .-low bit rate max sub-bands ever. used 



.•define the used subbands for 64 and 56 KBits / '. . • ■ ' ■ 

: (sampling rate / 2) - max Kz / by 32 sub-bands - Hz per sub-band 
;' . ' ■ '- .based on 'sampling rate: 1 

■ ; •'. 14400 ® 225 Hz per sub-band (144C0/ 

16000 » 250 Hz per sub-band (16000/ 
\ .24000 « 375 Hz per sub-band i 24 000/ 

" 32000 * 500 Hz per. sub-band (32000/ 

48000 « 750 Hz per sub-band (48000/ 



also based on bandwidth code, selection from 
.00 ■ CCS standard -. 
01 ■ 1 sub-band less than standard 
io ■ 2 sub -bands less than standard 



(2*32 : NUMSUBBANDS 
(2*32: NUMSUBBANDS 
(2*32 : NUMSUBBANDS 
(2*32 : NUMSUBBANDS 
(2*32: NUMSUBBANDS 
a pair external 



« 225! 
- 250) . 
« 375) 
■ 500i 
« 750;. 
switches : 



SUBSTITUTE SHEET (RULE 26) 



'bad ORIG1N aL 



WO 96/32805 



PCTVUS96/04835 



•20- :• 

li.- 3 sub- bands less t nan standard 



128.8 



define 
define 
define 
define 
B ■ ■ 
define 
define 
: define 
" define 
define 
define 
define 
define 



USEDSUBBANDS 
USEDSUBBANDS* 
USEDSUBBANDS 
USEDSUBBANDS^ 

USEDSUBBANDS 
USEDSUBBANDS* 
USEDSUBBANDS" 
USEDSUBBANDS* 
USEDSUBBANDS" 
USEDSUBBANDS* 
USEDSUBBANDS" 
USEDSUBBANDS* 



CO 16 
"Cl~16 

"io"is 

00 16 . 

"oi"i6:. 

*10~16 
"ll~16 
"00~16 

"oi"ie 

*10~16 
"ll~16 



'27' 
; 26' 
'25' 
■' 24 ' 

•30* 
'26' 
'22' 
'18' 
'22' 
'21* 
'20' 
'18' 



6750 Hz ® .16000 Hz sampling 
6500 Hz ©16000 Hz sampling 
6250, Hz 916000 Hz sampling 
6300 Hz. ©. 16000 Hz sampling 



6750 Hz 
5850 HZ 
4950 Hz 
4050 Hz 
5500 Hz 
5250 Hz 
5000 Hz 
4500 Hz 



® 144 00 
S 14400 
® 14400 
® 14400 
« 16000 
® 16000 
® 16000 
® 16000 



Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 



!28.8 



!28.8 



define USEDSUBBANDS 00 24 '30' 
define USEDSUBBANDS" 01 24 '26.' 
define USEDSUBBANDS~10~24 ": - 22 ' , 
define USEDSUBBANDS~11*~24 ' 18 ' 
define USEDSUBBANDS~00~24 '27' 
define USEDSUBBANDS~01~24 '26' 
define USEDSUBBANDS"l 0*2 4 '25' 
define USEDSUBBANDS~11~24 '24' 



12S.8 



define USEDSUBBANDS 00_24 '18' 

define USEDSUBBANDS~0 1 24 * 16 r 

define USEDSUBBANDS 10 24 '14': 

define. USEDSUBBANDS*"ll~2 4 '12' 

define USEDSUBBANDS 00 32 '20' 

define USEDSUBBANDS 01_32 ' 19' 

define. USEDSUBBANDS*" 10 32 ' 18 ' 

define USEDSUBBANDS^lO 2 ; ' l7 ' 

define . USEDSUBBANDS_0 0_4 8 '11' 

define USEDSUBBANDS 01 48 '10 f 

define USEDSUBBANDS"l0"48 ' 9' 

de f ine USEDSUBBANDS^l 1_4 8 ' 8 ' 



:28.B 



define INPCM 
define PCMSIZE 
define PCMSIZE. 
define. PCMSIZE 

if SAMTYPE--SAM16K 

3 

define RATES6 
define OUTM56 . 
define! OUTB56 

define RATE64 . 
define OUTM64 
define OUTB64 

define RATES 6 
define .OUTM56. , 
. define OUTB56 



'1152' 
'2560' 
' 1152' 
'2304' 



'0' 

'96' 

'2304? 

'0 r . 
•96' 
'2304' 

'0' 
- '168' 
'4032' 



6750 Hz 8 14400 
5850 HZ® 14400 
4950 HZ ® 14400 
4050 Hz ® 14400 

10125 Hz ® 24000 
9750 Hz ® 24000 

. 9375 HZ ® 24000 
9000 Hz ® 24000 



Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 



; 6750 Hz ® 24000 Hz sampling 
,6000 Hz ® 24000 Hz sampling 
; 5250 Hz ® 24000 Hz sampling 
; 4500\Hz « 24000 Hz, sampling 

; 10000 Hz ® 32000 Hz sampling 

;. 9500 Hz ® 32000 Hz sampling 

; 9000 Hz ® 32000 Hz sampling 

; 8500 Hz ® 32000 Hz sampling 

; 8250 Hz ® 48000 Hz sampling 

; 7500 Hz ® 48000 Hz sampling 

; ,6.750 Hz ® 48000 Hz sampling 

; 6OC0 Hz ffl 48000 Hz sampling 

; NUMPERBLK*NUMB LOCKS ; • 

; NUMPERBLK*NUMB LOCKS* 2+256 

; NUMPERBLK*NUMB LOCKS ! ! ! dbg I M 

; NUMPERBLK*NUMB LOCKS * 2 ! ! ! dbg ! ! 



;dip switch code for 28 . 8 Kbits 
;96 output words (2304 bits) 
; .080 * 28800 

;dip switch code for 2e . 8 Kbits 
;96 output words (2304 bits} 
; .080 ..* 28800 .. ' 

;' dip switch code for. 56 Kbits 
;168k output words* (4032 bits) 
; .072 * 56000 . 
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define RATE 6 4 
define CUTM64 
define OUTB64 



I ! ! 28.8 



I ! 128.8 



endif 

if SAHTYPE-- SAM24K 

define. RATES 6 .. 
define 0UTMS6 
define OUTB56 

define RATE64 . 
define OUTM64 
define OUTB64 

define RATES 6'. 
define OUTM56 
define OUTB56 . 



define RATE64 
. define OUTM64 
. def ine OUTB64 . 
! 128.8 

endif • 

• . if S AMTYPE « * SAM3 2 K 
define RATE56 
define OUTM56 . ' 
define OUTB56 

define RATE64 
define OUTM64 
def ine OUTB64 
. ■ • endif ■ 

if SAMTYPE— SAM4 8K, 
define RATES 6 
define OTJTM56 
= define OUTB56 ' 

define RATE64 
define QUTM64 
define OUTB64 
" endif ' ' • • ' 

define RATE_LO 
. . define RATE_HI . 



•1* ,-dip switch code for 64 Kbits 

•192'. ;192k output words (4608 bits; 
'4608' ;.072 * 64000 



:*0' ; ;dip switch code for 28.8 Kbits 

•96' : ;96 output words (2304 bits) / 
'2304' .' : ; .080: * 28800 

'0' ;dip switch code for 28.8 Kbits 

'96' ' ;96 output words (2304 bits) - 

'2304' ; .080 * 28800 

•0' ;dip switch code for 56 Kbits . 

'112* ;112k output words C2688 bits) 

'2688' ; .048 * 56000. 

# 1' ;dip switch code for 64 Kbits 

'128' ;128k output words : (3072 bits) 
' 3072' : ; . 04 8 * 64 0C0 



'0' ;dip switch code for 56 Kbits 

•84* ;84k output words (20i6 bits) 

'2016' ;.036 * 56000. ... 

•iv ■ ; dip switch. code for 64 Kbits 

'96' ; 96k output words (2304 bits) 

'2304' ; .036 * 64000 •.. 



* 0 ' ;dip switch code for 56 Kbits 

'56' ;56)c output words (13 44 bits) 

'1344' ; . 024 * 64000 

'1' : ; dip switch code for 64 Kbits 

'64' : ;64)c output words (153 6. bits) 

<1S36' ; .024 * 64000 



• 0' ;dip switch code for lower Kbit rate 

'1' ;dip. switch; code ..for higher Kbit rate. 



define framing bit rate values for sampling at 16 K 



i 128.8 



define OOTM32 16 
define OOTB322l« 
define. OOTM48_l6 
define QUTB48_16 



define OTJTM56_16 
define OUTB56 16- 
define OUTM64 16/ 



r 96' ;96k output words (2304 bits) 

'2304' ;.072 * 32000 

'144' ;144k output words (3456 bits) 

'3456' ; .072 * 48000 

'96' ;96 output words (2304 bits) 

'2304' ;. 080 * 28800 

'96' 96 output words (2304. bits); 
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define CUTB64_16 
define CUTM5€_16 
define OUTBS6_16 
define OtfTM64_l6 
define OUTB64_16 



.2304' 

•16S.' 

•4032' 

'192' 

'4608' 
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;. 080 # 28800 ' 

-;168k output words . (4032 bits) 
; ,072 * 56000 . 

;132k output words (46CB bits) 
'; . C72 *' €4000 



define; framing bit rate values for sampling at. 24 K 



define 
define 
define 
define 



! I2B.8 



define 
define 
define 
define 
define 
define 
define 
define 



OUTM32 24 
OUTB32~24 
OUTM4 8~24 
OUTB48_24 

OUTM56 24 
OUTB56~24 
OUTM64 24 
0UTB64~24' 
OUTM56~24 
OUTB56~24 
OUTM64 24 
•;OUTB64~*24 



'64' ;64k output words (1536 bits) 

'1536' .; .048 ♦ 32000. 

'96' ;96k output words 12304 bits). 

'2304' ; .048 * 48000. 

'96' ;96 output words ( 23 04 bits) 

'23C4' ; .080 ♦ 28800 

'96' . ; 96 output words (2304 bits) 

'2304'' ; .080 * 28800 

'112* ;112k output words (2688 bits) 

'268B' ;.048 * 56000 

'12B' ;128k output words' (3072 bits) 

'3072' ; .048 * 64000 



128.8 



define framing bit rate values for sampling at 32 K 



define 
define 
define 
define 
define 
define 
define 
define 



0UTM32 32 
OCTB32~32 
OUTM48 32 
OOTB4B~32 
OUTM56~32 
OUTB56 32 
OUTM64~32 
OUTB64~32 



'48' ; 48k output words (1152 bits) 

'1152' ; .036 * 32000 

' 72 * ; 72k output words . (1728 bits) 

'1728' ; .036 * 48000 

'84' ; 84k output words (2016 bits) 

'2016' ;.036 * 56000 

'96' ;96k output words (2304 bits) 

'2304' ; .036 * 64000 



define framing bit rate values for sampling at 48 K 



define 
define 
define 
define 
define, 
define 
define 
define 



COTM32.48 
OUTB32 48 
OUTM48 48 
OUTB48~48 
OUTM56~4B 
OUTB56~48 
OUTM64~48 
OUTB64~48 



'32' ;32k output words 

'768' :; .024 * 32000 

'48' . ;48k output words 

'1152.* ; .024 ; * 48000 

'56* ;56k output words 

• 1344' ; .024 * 64000 

'64' ;64k output words 

'1536' ; .024 * 64000 



(768 bits) 
(1152 bits) 
(1344 bits) 
. (1536 bits) 



highest number, of freqs used for coding for all sampling rates 

• define. MAXNMSKFREQS . . '132'.. ■■. 
;numb er of freqs used; for coding based on defined sampling rates 



128.8 
126.8 . 



if SAWTYPE— SAM16K 

I . ■ ■ • " . 

define NMSKFREQS 

J. ■' : . • 
endif 



'132* . ; number. of freqs used for. coding 



if SAMTVPE-«SAM24K 



1 129.8 
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: define NMSKFREQS j 
!28.8 ' . 
• endif . 

. if SAMTYPE— SAM32K 

define NMSKFREQS 
' endif ;'. 

■ if SAMTYPE—SAM48K 
. define NMSKFREQS. 
. endif • 



, I !28.8 



128.3 



define. NMSKFREQS 16 
define NMSKFREQS 24 
define NMSKFREQS_1€ 
define NMSKFREQS_24 

'define. NMSKFREQS_32 
define NMS KFREQ S_4 8 



' 1-3-2' 



•132** 



' 126' 



'132' 
'132' 
'132' 
'132' 

'132' 
'126' 



•23- . ..' 

♦•number, of ffeqs used for. coding 

..•number of freqs used for coding" 

; number of freqs used for coding 



;num freqs used for coding at 14.4 K 

;num freqs used for coding at 14.4 K 

;num freqs used for coding at 16 K : 

;num freqs used for coding at; 24 K 

;hum freqs used for coding at .32 K , 

.-num. freqs used fcr coding at 43 K 



the following indicates if CCS compression for 'positions: -i, 2 and 3 



define COMPRESS 
define COMPRESS 



' 0 ' ; 0 . indicates no CCS compression 

f l* ;1 indicates use CCS compression 



define uncompressed getdataU getvalue masks for unpack: 
. . upack3 , upackS and upack9 



define MASKUPACK3 . 'SOQOOlf* 
define MASKUPACK5 'SO00O7f 
define MASKUPACK9 ; f S0003ff 



; 5 bit getvalue retrieved 
; 7 bit getvalue retrieved 
; .10 bit getvalue retrieved 



define CCS compress: getdata 0 getvalue masks for unpack : 
•upack3, upack5, upackS and upack9 



define MASKUPACK3X ' SOOOOOf 

define MASKUPACK5X . 'S00D03f',. 

define MASKUPACK8X 'SOOOOff' 

define MASKUPACK9X • S0003ff- 



needed by the decoder rde code program 



define NOOF 
define NSBUFS 
define MAX TRIES. 



'5' 
' 4 ' 
•10' 



needed by. the decoder, rsynth program 



define '. OUTBUF 
define OUTBUF 
define OUTBUF 
-./• define- OUTBUF. 

needed by ail 

define NPERGROUP 



'512' ; 
'768' \ 
'1024' 
'1152' 



4 bit getvalue retrieved 
6 bit getvalue retrieved 
8 bit getvalue retrieved 
10 bit getvalue . retrieved 



; number of out of frames 

.-number of sync buffers 

; restart after framing tries 



;size of the output buffer. 

;size cf the output buffer 

,-size. of the output buffer 

; size of the output buffer 



;number of samples per processing grp 



This constant is used by xpsycho only to set to of f set used to account 
for the phase locked loop (P1X) jitter. 
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•24, 



'32' 



,-number of samples of offset 



defi 



define ; P-LCFSET 

ne -he methods of operation controlled by external switches 
normal operation vs various dignos tic operations 



define 
define 
define 
define 
define 
define 
define 
define 



;def: 



NORMAL OPER . 
LEFT lOOChz 
RIGHT lOOOhZ . 
BOTH lOOQhz 
MEMORY^ TEST 
LEFT_100CChz ; 
RIGKT_10000hr 
BOTH lOOOOhZ , 



•S0O000C 
'S000001' 
'S0OO002' 
•S0000Q3' 
'SOOOOOV 
-'S000005' 
' S000006' 
'S0CQ007' 



000. normal opearior." 



ancillary data baud rates and byte counts per frame time pence 



C CI" 1000 Hz ,'tone : left;, mute right "v 
,010 1000 H2 toner right , rrute .left 
C 11 1000 Hz tone to both channels 
100 perform memory' tests 
1C1 10000 Hz tone: left/ mute right 
110 10000 Hz tone right, mute left 
: ill 10000' Hz tone to ,both channels 

imsecs) 



def ine BAUD30C 
define BYTES3GC 
define M_SCCR3C0 


' . : ' 0 ' ■ 
• ' 1' 
'S57d' 


define BAUD1200 
define BYTES 1200 
define M_SCCR120C . 


- ' 

'4' 

*S15f| 


define BAUD2400 
define BYTES 2 4 00 
define M_SCCR24G0 ; 


'2* 
' 8 '■ 
'Saf 


define BAOT3 600 
define BYTES3600 
define M_SCCR36 00 


*3' 

'■ ■ • 11' . 
•$74' 


define BAUD4 800 
define BYTES480C 
. define M_SCCR4 800 


■ , 4 > -. 

: ; '15' 
. 'S57' 


define BAUD720C 
define. 3YTES7200 
define M_SCCR7200 


'5' 

•22' 

•S3a' 


■ define BAUD9600;. 
define BYTES9600 
define M_SCCR9600 


•6'"'' 

•29' 

'$2b' 


define BAUD19200 
define BYTES19200 
define M^SCCR1920Q . . 


. ' 7 
'58* 
'S15' 


■ define BAUE7200. 
: define BYTES 72 00 
define M SCCR720C 


'5' 
/ 116 ' 
;'$a' 



define BAUD KMART_ DCD 
define B YTE_KMART_4 2187 127 
define M KMART_42187 S9 



define MSCR.CD 
define M_SCR_OCD 



' SOS 
'S12 



;dip switch. code for 3 00 baud : 
;1 byte 17.2 bits 8 tits/ 

!*set clock for 3GC baud "rate . 

;dip switch code for 1200 baud 
;4 bytes 128.8 bits »«> 32 bitsi 
]set clock for 1200 baud rate 

;dip switch code for 2400 baud... 
; 8 bytes (57.6 bits »«> 64 bits; 
; set clock .for 2400 baud rate . 

.-dip switch code for 3600 baud 
ill bytes CB6.4 bits •«> 88 bits- 
; set clock for 3600 baud rate 

; dip switch code for 480C baud 
■•IS bytes (115.2 bits «> 12C ci: 
; set clock for 4800 baud rate 

; dip switch code for 7200 baud 
,•22 bytes J172.B bits «> 176 ,ci: 
; set clock for 72 :c baud rate 

; dip switch code fcr.960C baud 
;29 bytes (230.4 bits «•> 232 c: 
;set clock for 9600 baud rate 

; dip switch code for 192CC baud 
*5B bytes (460.8 bits — > 464 b 
' ; set clock for 19200 baud' rate 

;ctip switch code for 3840C baud 
•116 bytes (921.6 bits •*> 928 o: 
; set clock for 3 84 CO baud rate 

t *code forced by box_ctl 

; 127 bytes '.1012.5 bits 1 = 16 

; set clock for 42167.5 baud rate 

"..•enable. re rei for encoder , 
; enable te & tei for decoder 



,ts • 



its) 



.tsi' 



bits- 
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define. DATABUFLEN ..*. . '512*. . ^ancillary data inout ; buffer length 

■define BI7SP2RBY7E V. '8' - ■ .; ancillary data in"-8rbit bytes 1 

■define ■ BITSFORP ADDING. ■■■ ' 3 ' .framed bit' count for pad byte ccur 

list . ; •'■ ;•• • • 
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. nc-ist - V -26- * v ■ 

; iz- 1995. Copyright. Corporate Computer Systems; Inc.. All rights, reserved. 

• \DGCSt \box_ctl - asm . 

; This file contains, the definitions for the .control . variables- for : 
; running, the encoder and decoder for: 

•'Digicast MiniCodec version of CCS CDQ1000 : 

' . sampling rate is 14.400 X - 225 Hz per sub - band : i coded as 16 K sampling: 

• bit rate is 28 . 8 KBits per sec (coded as the low sampling rate; 
the frame header, is coded as 'fffcOO' 

• : Port B fcr the encoder and decoder is defined as a host port . 

'. ■ ' . encoder has its own phase lock detected oh pel of Port C 

• ■■ decoder phase lock is detected on pcO of Port C • 
i ancillary data is NOT APPLICABLE 

; define the bits required for Reed Solomon error correction 

define REET_ S0L0MCN_3 ITS '24C ;8 bits -'.30 Reed Solomon bytes 

.-define, the "choice pairs of input PCM sampling rates to make available . 



: ! 128.8 



! ! 126.8 



define SAMPLE 1SK AND_24K. 

define- SAMPLE~16K_AND_24K 

define SAMPLE_I6K ANE_32K 

define SAMPLE 16K_AND_48K 

define SAMPLE~24K AND_32K 

define SAMPLE~24K AND 48K 

define SAMPLE 32K AND_48K 





; choice 


of 


14400 


or 


14400. 


•0' 


.•choice 


of 


1600C 


or 


24000 


• i ; ' 


; choice 


of 


16000 


or 


32000 


'2' 


; choice 


of 


16000 


or 


.48000 


'3' 


.-choice 


of 


24300 


or 


"32000 


'4' 


.-choice 


of 


240C0 


or 


48000 


*S'- 


; choice 


of 


32000 


or 


48000 



;def ine the selected pair of mpu: 



PCM sampling rates to make available 



: !2e.B 



; I : 126.8 

; 1 1 129.8 
; 1 I 128.8 



def ine SAMPLE_RATE_?AI R 



.-1440C and 14400 sample rates 



define 
define 
define 
define 
define, 
define 
define 
. define 
define 
define 
define 
define 



if SAMPLE - RATE.PAIR«SAMPLE_16K_;AKD_24K 

LOW SAMPLE RATE 'SC0OO00' 

HIGH SAMPLE_RATE . 'SOOOOOO' 
FRAMESYNC LO . 'SfffcOO' 

FRAMESYNC~HI .'SfffcOO' 

LOW SAMPLE_RATE CCS 'S00C000' 

HIGH SAMPLE RATE CCS ' SOOOOOO ' 

FRAMESYNC LO CCS* : '$fffcOC 

FRAM£SYNC~HI~CCS 'SfffcOO', 

LOW SAMPLE RATE ISC ' SOOOOOO ' 

HIGH SAMPLE RATE ISC 'S0OOO00' 

FRAMESYNC LO ISO - 'SfffcOC; 

FRAM£SYNC~HI~iSO ; 'SfffcOO', 



00 
00 

fr 
00 
00 

fr 



00 0 14.4 KHz 
CO O 14.4 KHz 
fr sync patter: 
f r sync patter: 
d 14 .-4 (16) KHz 
« 14 .4 (16» KHZ 
sync old CCS 14 
sync old. CCS 14 
0 14.4U6; KHZ 
« 14.4(24V KHz 
sync MPEG- ISC 1 
sync MPEG- ISC 



14 
14 



;4K 

.4K 



4KC 

,4K*;: 



4.4K 
4.4K 



I24? 



; 1 1 128.8 
; 1 ! 12B.6 



' endif . 

■def ine the .framing max tries '.fcr. MUSI CAM- : 
' define - VERIFY_TRIES ' ".. .'S* 



.•verify found rates 
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; . , \ .. ... : ^ -27 '■ , : ■., _ ; . ; /. " . : " . ■ '}/■',. 

■ define MAX BOOT^TRIES . V .'4G' • .; ;f = r .-, 

define .MAXlAUTOlTRIES .. : ■ '8C'-, , . ;ior 1,9. secoMS 

define the . power up wait times- before going into processing ;. 

define XCODE STARTUP ■ '• /' 1=0 0C ' ; .; 1- second 

- define RDCDSYNT_STARTUP .'10OO' ;1 second, 

define the memory layouts fcr.aiiy diagnostic ^ 

; decoder memory layout : 

' define START P MEMORY DO . . '1024* 

define END_P~MEMORY DCD -. '2048'; 

define START~X MEMORY_DCD . - .'40' . 

' de'ine ' END X~MEMORY_DCD . .... ,'512C 

define START - Y MEMORY_DCD . '128' 

' , define- END jOlEMORY_DCD — • M536' 

' define WATCK.DOGJTEST.DCD : ;2C millisecs for watch dog 

; define the encoder/decoder overload scale factor ; code _ a scale facter ■; 
i lower than this value is considered an overload condition 

. define OVERLOAD_SKF . '5' . 

•,^ in , t he -on-rols to reframe if an excessive error condition persists 

™oSc of frames out-of-frame or oof's- inc sync pattern) . 
' ,rd a^reouency count of checksum bit errors. are maintained. 

For evS^ad frame condition the appropriate counter is incremented at. 

■ ; good frames and bad frames. 



i^l 1 2S-it5t '4' .-;out-of-frame iocfs; tolerance. .... 

deiinT lS:S"l«IT ;CRC16. checksum cit error tolerance 



•ben 3/8/94 (start) : G722 modification for K221 
; Hand shake definition ,<PBD> 

define HSFTT - .. ;PB14 input 

define CC - ?PB9 1RpuC 

#12'- - ;PB12 input 



define C2 . ' #10 
define .ABIT' 



define. HSTTF '«13' : V ;PB1 3.. output; . 

; Tx flag definition 

' - define ^FtAG ^O; = ■ ; 6Witch ' 

define M64 ■ 

;ber. 3/8/ 94 (end) : G722 modification for H22i 

: ben 3/21/95 : ' decoder Reed Solomon address ■ parameters. . , • 
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.'define 
define 
de f ine 
define 
define 
define 
define 
define 
define 
define. 



RSRegl 
RSReg2 
RSReg3 
RSReg4 
RSRegS 
RSRegS 
RSReg7 
RSRegS 
RSIN . 
RSOUT 



"S8£ f8' 
.■' S8ff9' 
• SBffa' 

::$8ffb': 

'$8ffC 
'S8ffd' 
'SSffe' 
*S8fff ' 
'$fff8' 
'Seff B.' 



-28- 



;define PORT C initializations 
; encoder PORT C Assignments 



s - ssx port 
i * input port 
o ■ output port 



7 6.5 

S 3 S 

■ e' 



3 2. 1 
s b . i 

-8 ■ 



pcO 

pel 
pc2 
PC3 



P C4 
pc5 
pc6 
P C7 



pes 



eclksel (o) 
eld (il 
rstrs (o) 
ebclk (si) 



elrclk (i) • 
ewe Ik (si) 
eclk (si) 
esrdata (si) 



etdata (so) 



0101 « 5 

; select clock for Reed Solomon 

; phase lock detect (0-not locked,. 1-locked) 

; reset Reed Solomon 

;bit clock. • 

0000 « o- "•■ . 

; input pem samples left /right clock 

; transmit .word clock .■ 

;input samples word. clock 

; input audio pem sample data 

oooo - o •'• 

; output KUSICAM frame data . 



define .■ XCODE PORT C M PCC 'movep 
define XCODE~PORT C M PCD 'movep 
define XCODE~PORT C M_PCDDR .'movep 



#>$01e8,x:«$FFEl' 
#>$0004,x:«$FFE5' 
#>$0005,x:<<SFFE3' 



decoder PORT C Assignments; 



■ s 
i 
o 

8 

s 



ssi port 
input port 
output port 



.7 6 5 4 
s s i s 

d • 



3 2 1 0 

s o o i 

.'- 8 - 



0110 

pcO - did (il 
pel - fclksel (o) 
pc2 « darst (o) 
pc3 - dclk (si). 



P C4 



0000 



dwclk . (si) 



; phase lock detect (0«not locked, 1- locked! 
; select clock for Reed Solomon 
;d-to-a reset line (0 -mute, 1 ■ audio) , 
/receive input frame data stream clock 



..•transmit dac output audio word clock 
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; . per V dirt Ik \ iV 
; . pc6 * dbclk ;si 
; pc7 - drdaca isi'i ■ 

] ■ "'■ ; •' • '• 0000 

; pc.8 "- dsdata <so» 



= ; transmit' dac audio output left /right zl 
; decoder -'bit '.clock 

; receive input musicam frame data-, \ 



.■transmit audio data output tc dac 



'movep #>S01d6,X: <<Sr?£l ' 
'movep, t>53002, X:<cSFFE5' 
'movep #>S0006, x: «SFFE3 ' 



■define RDECODE PORT C « PC: . 
define RDECODE^PORT^C" M~PCD 
. define RDECODE_PORT~C~M~PODR 

; define PORT. B initializations • 

;. .encoder PORT 3 Assignments 

;,i::Ncte:' for Digicast pert- 3 is a host port . . 

'■>■' . That means the following definitions." are -not applicable. 

; ; ;.; -14- 11 12 - II 1C" 9 5/--' 7 6 5 4 - 3 2 1 C " 

; ; ; ; 14 13 15 -.' 11 1 0 9 8. - 7 6 5 4 - '3 2 1 .C 

; ; ; ; i i 1 O i i O ; O O O O O C i i 

; ; ; i C ■ i ■ O i O . . ' O. O C O O C 1 I 



l i o 



c c o c 



. i o i . 1 



■ • MUSI CAM *< 
• * £722 ** 
** G722 ** 



pbO '« , :1b iii 
pbl » bitrate Ui 
pb2 » coding (o> 
pb3 - samprate (o) 
pb3 « samprate fi 



pb4 
pbS 
pb6 
pb7 



pb6 « 
pb9 - 
pblO 

pbii: 



pbl 2 
pbl 3 
pbl 3 



emus (o) . 
eovrld (c). 
e24k. (o> 
wd2 t o) 



cal io) 
eo ■€ i-S, 

- el .li>' 

- eralS (o) 



'1100 - C . *♦ MUSICAM ** 
0100 - 4 : ** G722 ♦* 
loop back 

frame bit rate (0-lov, l-high) 
type of data- input f0«MUSICAM, l=G722i 
PCM sampling rate 10-low, l-high) *» MUSICAL *;* 
; HSFTT flag for H221 . »*G722 *♦ 

•mi - f : 
encoder MUSI CAM led t'o-eff, l-lit:- 
input pem overload led . (0«off ,■ 1=1 it - alarm* 
.encoder phase lock loop led iO-cff, l«lit;. 
watch dog timer. 



10 CI • 9 

; analog-to-digital converter reset -TO-normal, 
; CO flag for H221 ■/ ** G722 *♦ 

; C2 flag for H221 *♦ G722 *♦ 

•must be set to 1 



L*reset 



e3 U). 

e'2. <.ii 



OC0 
010 



*♦ MUSI CAM •* 
** G722 •* . 



el 



pb!4 - e4 
pbl4 « , e4 



(i) 



ABIT flag for K221 
NOT USED " 
KSTTF flag- for K221 
NOT USED 

HSFTT flag for H221 
auto status of decoder: 



-*•' G722 
*• MUSICAM ** . . 
** G722 .•' ': 

MUSICAM ** . 
•* G722 •* ' . 

go ts' low' samplmg/MUSICAM 
follow above pins 



: !Not 



te : for Digicast port B is a host port 
That means the previos definitions a 



define port 8 as a. host port.. 
'-: . define ■ . xcode_PORT_b_m_pbc 



are not applicable. 



•movep' **>500Cl.x:<<SFFEO.* 
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;set data sz thai baralS J bit ll- 1S -- .* v : . 

def ine . XCCDE_PORT_B_M_PBD .*. ; ! I !Digicastmpve? *>$08CC . x: <<SFFE4. ' 

; set/bit direction (output.' « i or input' 0) :. 



' MUSICAK **.. 

\: define . XC0DE_?ORT_B_M_PBDDR , 
\ G722 ** ' ' ■ 

define XADPCM_PORT_B_M_PBDDR. 

decoder PORT B Assignments . 



; ! I iDigicastmove? " »>SC9f c, 
• MDigicastmovep.. *>S29fc. 



x:«5F.FS2 f 
x : <<5FFE2 * 



:Note: fcr Digicast port B is a host port 

* That means the following definitions are not applicable. 



L4 13^12 - 11 XO/9 8.- 7 € 5 4-3.2 1 C '■ ..." 
o c' c' ' o o o c . ' o . i o o o o o. i . . 
c i z c o o o o i o o '' o o o - i 



•♦'MUSICAM ** 
** G722 »•-." 



pbC * ind t'i ) 
pbl • bitrate io) 
pb2 - rcoding (ol 
pfc3 « rsamprate to) 



pb4 - N/C. (o) 

pbS - N/C (o) 

pb6 Id iir" 

pb~ * wdl . f c> 



pb8 i idarst (ci 
■pb9 » eC to* 
pblO - el ic) 
pbll « decralS (o) 



. : HID • e 

.????? 

determined framing bit rate (0»low ( l-high; 
type of data to decode fO -MUSI CAM. 1-G722J : 
determined sampling rate. (0-low. ...l«high> 
HSFTT flag for H221 • * G722 ** 

1011 - b . 
NO CONNECT 
NO CONNECT 

phase lock loop detect !0«not locked. .1 -locked; 
watch dog timer 

' 1111 - f 

digital -to- analog reset !i«normal, G-resef 
CO flag for H221 0722 ** 

C2 flag for H221 
boot top Ci. cr bottom io/: 



pb!2 - e3 to). 

pb!3" • e2 .to) 

pbl3 - e2 (i/ . 

pb!4 - e4 iof 



** G722 
512 chip... 



-/-.hi • f '•■ * 
.M01 - d • 

ABIT flag for H221 

NOT USED 

HSTTF. flag for. H22 
NOT USED 

HSFTT flag fcr K221 



MUSI CAM 
G722 •* 



G722 '•* . 
** KUS1CAM ■** 
*♦ G722 •* 
•* MUSZCAM ** 

G722 •* 



auto status: 0 NOT framed -encode low samp ling /MUSIC 
1 FRAMED . .-' • 



r ; ; ; ; ; 'pblf. V e4 - AO! 

,-rdcdsynt " " '• 

; ::!Ncte: fcr Digicast per* B is a'host port ■ .. • ■■ 

; ,. That means the. previos. definitions, are. not applicable. 



define pert B as a host '.port : '." 

de f ir.e RD£CCDE_?ORT_B_M_PBC 



'move? • . *>SC0C1.X:<<SFFE0 ' 
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: . • . . . ; \ ' • . . ' '• : , 01 • •" : : ; •. . ; : . . ' ' ■ 

; .set daia. so that baralS !bit ID" is "1 ; ■ 

! IDigicastmovep ; #»S0600; 
; ! i iDigi cast movep. /-«>$* ffbe; 
; l ! IDigi cast movep #>$dfbe 
.•define ssi port initialization for. encoder and decoder 



define RDECODE_PORT_B_M_PBD . 
MUSICAM ■■** 

de f ine RDECODE_P0RT_B_M_PBDDR 
G722 

.define FRADPCM PORT_B_M_PBDDR 



x:<<SFFE4' 
X:«SFFE2' 
X:<cSFFE2' 



define XCODE SSI_M_CRA 
define XCOD£~SSI_M_CRB 

define . RDECODE_SSI_M_CRA 
define RDECODE SSI_M_CRB . 



'movep *>$6000,X:<<SFFEC* 
'movep - tt>$fG10,X:«SFFED' 

•movep *t>S600C.x :<<5FFEC 
•movep *»>Sf 008.X:«SFFED* 



;define sci" port initialization for : encoder and decoder 



define. XCODE_SCI M SCR 
define RDECODE SCI_M_SCR 



'movep #>S0002,x:<«SFFFO' 
•movep #>$0002,x:<?cSFFF0' 



define the setting dsp5€0C2 clock -(PLL. Control Register) 
\ 8 KHz crystal to. run a 40 MHz £S times 8. so code a 4 below) 



define XCODE M PCTL 
■define " RDECODE M PCTL 



'movep *>S050Q04 .x:<<SFFFD' 
• movep *>S050Q04 .x: <<SFFFD* 



.*♦*#♦**♦*********•********************************* 

•ENCODER hardware settings for leds -and line's- '• 

.•control the encoder devices: 
; tested inputs of: 

• • host vector 24 ". . . 

provides hardware and encoding parameters.: none yet 

; ' host vector 2A 

psycho table parameter id (0 - 31) 

; hos. sector parameter value for is frorr. host vectcr 2£ 



bit 
bit 
;;bit 
.;;bif 
v bit 
;;bit 
bit 
bit 



JO-MUSICAM 
i0«high, 1' 
(0-MUSI CAM 
to-high, l 
(0«56Kbits 
tO-low. 1- 
tO-C. 1-1) 



; y:<<SFFFF 
\ BRAD encode select data type 
; LO/HI encode sampling rate 
;;; CODAD decode select data type 
; . MUS/G122 decode sampling rate 
; SRAD hit' rate ■ 
;;; 32/48 net used 
; low bit encoder band width code , 
; high bit encoder band width code 
; baud rate code low order bit .. 
; baud rate code middle bit 
; baud rate code high order bit 
; CRC-16 OLD . t.O J or NEW (1) ISO 

;!.i!Note: for Digicast port B is a host port. - '■• ^ 

That means the following definitions 1 are not applicable. 
M PBD (x:<<SFFE4) 
] pbi - bitrate (i) bit 1 frame bit rate <0«low, 1-high) 
: Jbj . eO. ti) -. ., . ■ bit , 9 CO flag for H221 ♦* G722 . 



bit 10 
'.bit 11 
bit 



(0-C. 
.(0-0. 
!0«0, 
♦0-0, 



1-1) 
1-1) 
1-1) 
■ 1-1) 



'.'1-G722i swl 
low) sw2 

1-G7221 sw3 
low) sw4 
l-64KbltS) sw5 
high: sw6 

back panel 
back panel 
back panel, 
back' panel 



sw 1 
sw 2 
sw 3 
sw 4 



sw 5 back panel 
bit 13 . vb-old. l«newi sw 6 bacic pane 
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ctlO « el -i ! 

cell • e3 . •' i: . 

pbI3 - e2. !iJ" 

obI4 - e4 . (i) 



' -32- 

bit 1C C2 flag for H221 ** 3722 
bit ' 12 ■ ABIT flag for K221 •* G722 ? 
bit 13 NOT USED '•• MUSI CAM 
bit 14 HSFFT flag for K221 G722 



set outputs of : 

::!Note: for Digicast port B is a host port 

That means the following definitions are not appl"; 



:abie . 



pb2 - 
pb3 « 
pb4 i 
. pb5 « 
pb€ . « 
pb7 * 
pb6 « 
poll 
pb!2 



coding .\o) 
samprate (o) 
emus (of 
eovld !o) 
eollalm to* 
wd2 ioJ . 
;:cal tor 

« eralS (b) 

« e2 (c) 



M PBD 
bit 2 
bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 



pc2 - eg722 Jo) 



13 
PBD 
t 2 



(X:<<SFFE4: • 

type zi data input' (0-MUSICAM. 1-3722; 
PCM sampling rate (0«low. i«high: 
MUSI CAM encoding led (0-off, 1-lit alarm; 
input pern overload led (0»off, l-lit alarm* 
encoding at low sampling led ;o«off, i«ln: 
watch dog timer 

anal-to-digit converter reset Cl-normai.. 0-<rese: 
, must be set to 1 " 
HSTTF flag for H221 ** G722 ** : - 
(x:«SFFE5) 

G722 encoding led (0«off. 1-lit aiarm) .' 



leds across' panel: 

!!!Note: for Digicast port B is a host port ' 

That means the following definitions are not applicable. 



N/A 



. 1 . MUSI CAM encoding led: 

.2. G722 encoding led: 

9. main phase lock loop led: 

10. encoder overload led: 

11. encoding low sampling led: 



X:ccSFFE4 bit 
X:<<SFFE5 bit" 

X:<<SFFE4 bit 
x:<<$FFE4 bit. 



(amber) 
I amber) 

(red) 
(amber) 



control the encoder, analog-to-digital converter reset line 



define 
define 



SET ADC RESET 
CLR~ADC~RESET 



;bclr #C,y :<not_appl ' 
;bcir #C,.y : xnot^appl ' 



LD: test the MAIN phase lock loop detect 

define LOCK COUNT • - 5* ;S successive locks set the lock led 



define TST SET PHASE LOCK_CD ' j set 

define TST'CUTpHASE^LOO^CD 'jelr 

define TST~ON PHASE LOCK_LED_XADPCM *jset 

define TST~OFF PHASE LOCK LED XADPCM 'jelr 



#1.X:<<SFFE5' 
#l.x:«SFFE5* 
*l,X:<c$FFE3' 
#1,X:<<SFFE5' 



.-band -width: • 

;low order bit of band-width limit code . ' 
; high order bit of band-width limit code 

codes: 00 - level 0 CDQ2000 standard band-widths 
;: • ci - level 1 CDQ2000 standard band-widths 

; -10 » level 2 CDQ20Q0 standard band-widths 

'. '■'■11- ■ -level 3 CDQ2000 standard band-widths 



define TST SET LOW BAND WIDTH_CD 

; • define TST~SET~HIGH BAND WIDTH_CD 

- define . TST~CLR~LOW BAND_WIDTH_CD 

define TST"cLR"HIGH_BAND_WIDTH - CD 

TOGGLE WATCH DOG ZD macro 



■•■jelr" #0 ,y : <r.ct_aFpl ' 

'jelr ■ #2 ,y : cnot^appl ' 

'■jelr nz .y : < net "appl * 

• jelr #: ,y : <not"appl ' 
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• encoder host interface watch dog. tickle 

;see what the host expects for a dog tickle and act accordingly v." 
; if bit M HFO (host i/f flag 0) of X:M_HSR (host status register} 1 is set. 
; . set~bit M_HF2 (host. i/f flag 2). of X:M_HCR ■[ host control register. 1 , 

else ' V\ 

clear bit M_HF2 (host i/f flag 2). of X:M_HCR (host control register? . 

jset #4.x:«SFFE9, watch dog 00 : : 
bset #4,X:<<SFFE8 
' jmp <_watch_dog_10. : 

watch dog 00 ^ 
~ J ~ bclr #4,x:<<$FFE8 '. 

-. _watch_dog_10 ^ : 

endm 

. INTERRUPT_HOST_CD . macro . 
.-wiggle host interrupt 1HACK bit 14. of pert b'. 

bset #14,X:<<$FFE4 /. 

■ nop .' ■ . \ : • ' 

. ■ ' ' nop - 

movep y:word_out ,x:<<$FFEB /output leds for last frame 

nop . ■ ■ '-. , "• • . '•' 

- ■■ : nop .' ■;" 

bclr : #14,X:<<$FFE4 

' '. endm 

INIT_HOST_VECTORS_CD macro • 

; initialize the encoder host, vectors with start-up valid settings 
; since, value is zero, use 30 sub- bands (6750 Hz! 

move . . #>$0,x0 . 
move xO ,y :host24_word 
move #>-l,x0 ~ 
move xO , y : host2A_word 
move ^ #>$0, xO • ~ 
move.. x0,y:host2C_word .. 

endm • • - .'" •' 

GET_ SWITCHES_CD macro LOOP . 

; copy switches received under host vector interrupt 

; bits 0-4 allow user set audio band width by specifying the upper 

; sub-band to be considered for bit allocation. 

the range is from 4 {900 Hz) to 30 (€750 Hz; • 
; Note: 30 is the default if the value is not within the range., 

move" y:host24_word,x0 

move .'. •' xO ,y : word_ in ; \, '.<"... 
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' .-. - ; ■ -34- ■ - ■. ;.- . ^. . 

■ " endrri ' _ ■ 

;3ITRATE, low/high: gee the selected bit race : 

define TST_SETJLO_BIT RATE CD 'jclr #0,y:<not appl' 

define TST_ SET_H I _B I T~RATE~CD : /jclr #0 , y : <not~appl * 

;C0DAD,MUS/G722 : get the selected type of decoder input data,. 

■ define ,'TST SET MUSICAM_DATA CD ■ : .'jcir " v #0.y:<Word in' 

; ! ! 128.8 ■ . ~ • • • ... ■'■ ; ~: " 

define TST_SET_G722_DATA_CD 'jset #6,y:<not appl' 

• . define. SET MUSICAM_DATA CD - ' ;bclr #0, y: <noc~appl i 

define SET_G722_DATA CD~ / ' ;bclr #0, y : <not~appl ' 

; ! ! 128.8 ; . ~ .. . ■ • - . . . ■ " , r 

;SDAD.LOW of HIGH: get the selected sampling rate 

;.. choice pairings {A/B) are: 16/24 16/32 16/48 24/32 24/48 32/48 

define TST SET LO SAMPLE_RATE CD . . 'jclr -#0,y:<not appl' 

define... TST_SET~HI~SAMPLE_RATE~CD 'jclr . ftO.y : <not2appl'. 

define SET LO SAMPLE RATE CD ~ . * ;bclr *0.y:<not appl' 
; 1 ! ! 28 . 8 ..' ~ -~. ' . ■ " • 

define SET HI_SAMPLE_RATE CD * ;bclr #0., y:<not appl' 
; i : 128.8 • ; . ' ..." - . 

; MONSTERC : test whether mono or stereo framing selected 

define TST_SET_MONO_STEREO_CD \ . 'jclr #0 ,y :<r.ot_appl' 
define TST~CLR2MONO~STEREO_CD : 'jclr . #0 ,y : <not_appl' 

. jJOINTCE: test for joint stereo framing (if not mono selected above! 

define TST_SET_JOINT_STEREO_CD 'jclr #0,y:<not appl' 

: define TST^CLR^JCINT^STEREO^CD 'jclr **0 .y :<not~appl.' 

;Set which type ISO CRC-16 checksum OLD (0) or NEW C 1 } 

define TST SET NEW ISO CRC CD A 'jclr #0,y:<not appl' 

define TST^CLR^NEW^ISO^CRC'CD 'jclr . #0 . y : <noOppl ; 

;E4: see if decoder, is framed or force MUSI CAM at LOW sampling rate 

define TST_SET_DECODER_FRAMED_CD 'jclr #0 , y : <not_appl ' 

def ine TST_CLR~DECODER~FRAMED~CD ' j clr #0 , y : <not~appl' 

;BR0,BR1,BR2 : get the ancillary data baud rate 

define TST SET LOW BAUD_RATE CD : 'jclr #0,y:<not appl' 

define TST~SET~MID BAUD_RATE_CD 'jclr #0,y: <not~appl * 

define. TST~SET~HIGH_BAUD RATE CD > 'jclr . #C ,y : <not~appl ' 

.. define TST'CLR^LOW BAUD RATE CD 'jclr #0,y : cnot^appl ' 

: define ' TST~CLR_MID~BAUD~RATE~CD 'jclr #0,y:<not appl'.. 

define- TST — CLR_HIGH^BAOD - RATE_CD 'jclr #0,y : <not~appl • 

.•summary alarm relay: alarm relay associated with alarm LED 

define SET ALARM RELAY CD. ' ;bclr #0 .y : <not appl ' 

define aa~ALARMJlELAY_CD ■ ,' ;bclr #0 , y : <not"appl '.. 

define TST~SET_ALARM RELAY_CD : . ' j clr ; #0 ., y :.<nct appl' 
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; .'define TST_CLRj*LARM_REIAY_CD ; jc 
/define state for all leds on and of f. for. start-up 



' #0 ,y :<not_appl; 



define OFF LEDS CD. '$000000* 
define ON_LEDS_CD ; - \ '$000000* 



;turn leds of f : 

define 
' define . 

define 
. define 
define 
define , 
•."define 
define 
define, 
define 
define 
define 

; turn leds on: 

define 
define 
define 
define 

. define 
define 
define 
define 

..define, 
define 
define 
define 



OFF MUSI CAM LED_CD . . 
OFF~G722 LED CD~ 

off~low_sampling LED CD 

OFF~OVERLOAD LED~CD " 
OFF~MONO LED CD 

off"stereo LED CD 

off" joint led cd 

off phase lock led cd 

off~phase"lociTled3xadpcm 

off"alahw"led_cd ~ 

off bitalloc- led_cd 

off~reed sol"led CD' • 



ON_MUSICAM_LED_CD . : . 
ON G722 LED CD 

onflow sampling_led_cd ; 

on~overload_led~cd 

on~mono_led~cd 

on stereo_led_cd 

on""joint_led_cd 

on"phase lock led. cd 

on'pkase^lock'led'xadpcm 

ON ALARM~LED CD 
ON~BITALLOC LED_CD : 
ON REED SOL LED CD 



;cff if bits set' 
;iit if bits clear' 



' ;bclr 
' ;bclr : 
;bclr 
•bclr 
r ;bclr . 
• ;bclr 
* ;bclr 
rbset 
' ;bclr 
• ; bclr 
' ;bclr 
'bclr 



#6,y: 
#0,y: 
#0,y: 
*i;y.: 
*0,y: 
«0,y: 
1*0, y: 
#0,y: 
#0,y: 
#0,y: 
#0,y; 

*2,y: 



<not_appl ' 
<not^appl ' .. 
<not appl' 
<wor3_out ' 
<not_appl* 
<nct3appl ' 
<not~appl* 
<word_cut' 
<not_appl* 
^not^appl '. 
<not2appl r 
<word cut' 



• ;bclr • 
' ;bclr 
' ;bclr , 
'bset 
' ;bclr 
f ;bclr 
' ;bclr 
'bclr . 
* ;bclr 
' ;bclr' 
;bclr 
/bset 



#0,y: 
*0,y: 
#0,y*. 
#i,y: 
#0/y: 
#o,y: 
no,y: 
#0,y: 
#0,y: 
#0,y: 
#o,y: 

■*2.y: 



<not_appl' 
<not_appl' 
<not~appl ' 
<word_out ' 
<not_appl' 
<not_appl ' 
<not2appl ' 
<word_out 
<r.ot_appl' 
<not2appl' 
<not~appl' 
<word out' 



define SET_LEDS_CD 



•movep y :word_out,y :<<SFFFF' 



»#***♦**#*****« 



•DECODER hardware settings for leds and lines 

; control the decoder devices: ^ . 

phase lock loop signal line: 



; control the decoder devices: 

; tested inputs of: y : <<SFFFF 

•;; BRAD encode select data type 
;;; LO/Hi encode sampling rate 
; CODAD decode select data type 
; MUS/G722 decode sampling rate ■ 
; SRAD decode bit rate . 
;;; 32/48 not used ■ - -■ _ 

;;? low. bit encoder band width^code 
;;; high bit encoder band width code 
; baud rate code low order bit 
; baud rate code middle bit ; 



M PBD bit 6 



;;bit 0 

;;bit.l. 

bit 2 
' bit 3' 

bit 4 
;;bit 5 
;;bit 6 
;;bit 9 

bit 10 
■ bit 11 



(0.MUSICAM 

■(0-high, 1 

(0-MUSICAM 
<0«high. l 
(0-56KbitS 
{0»low, 1- 
10.0,1-1) 
10*0, 1-1) 
(0-0, 1-D 

<o«o, i-i) 



1.G722) swl 
low) sw2 
1-G722) sw3 
-low) SW4 

1-64 Kbits) sw5 
high! . sw€ 
sw l back panel 
sw 2 back panel 
sw 3 back panel 
sw 4 back panel 
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; baud rate code high order bit . 
; ; ; ' CRC- 16 • 01D . ' Z r or NEW . { 1 J ■ . ISC . 



bit (0«:, i«i sw.= back 'panel ■'' 
■ ;.;biv 13,. to-cld. l-new/ sw 5 bac'< panel 



:Note: for Digicast port B is a host port 

That means the following definitions are not applicable . 
, M PBD IX:«SFFE4> 
. M~PBD (x:c<SFFE4> .. 

! IS loop back / . : bit C ;i»not loop' .back. 0« 

LD mam phase: lock loop signal line: bit 6 (1-lock .G-nct; 

E2 KSTTF flag f or H221 • ** . C722 •* : bit 13'. 



-ocp back/ 



; set. outputs of: 
;.: : !Note : for Digicast 
That means the 



; . pbi » citrate (oi. 
; pb2 - coding io' 
; pb3 ■ samprate . (oi 
; pb4 o 32k to; 
; pbS - 4 8k io; ; 

; pfc7 * Wdl to! 

pbe * idarst to) 
; pbS - eo (or 
; pblG « el (oJ 
; pbll » decralS (o) 
; ,pb!2 «. e3 <o! 
,; pbl3 » e2 (o: ;. 
; pbl4 » e4 (o; 

; pc2 • alrmrly (o) :, 



port B is a host port 

following definitions are not aoplicable. 
M PBD (x:<<$FFE4) . / • ' ' 

M~PBD (X:<<SFFE4) . 

bit . 1 determined framing bit rate (G«low, 
bit 2 type, .of , data to decode (O-KUS I CAM, 
bit 3 determined sampling rate. (0»low, := 
bit 4 sampling rate low led-9 (0»off, - i»l 
' bit/ : 5 sampling rate high led-10 (0«cff, 1 
bit 7 watch. dog timer 10-clear, l»set; 
bit 8 digital-to-analog reset tl-normal, 
bit ; 9 CO flag for H221 ** G722 ** 
bit 10 C2 flag for H221 ** G722 ** . 
bit 11 boot top (1) or bottom (0) must be 
bit 12 ABIT flag for H22! G722 *• 
bit 13 NOT USED ** MUSICAM ** 
bit 14 HSFFT flag for H221 G722 
M_PBD (x:«SFFE5) 
bit 2 alarm relay 



Li high: 

■G722) 

igh, ; " 



it 

-1; 



!« reset 



encode 2 . 
3. 
4 . 



leds across panel: 
encode 1. MUSICAM data led: . 
G722 data led: . 
MUSICAM frames led: 
G722 input, data led: 
5., framing alarm led: 
fi. main phase lock loop led: 
7! decoder overload led: 
. 8. crc bit error led: 
encode 9. encoder overload led: 
'encde 1C . main. phase lock loop led: 
encde 11 . low (1) vs hi (0) sampling: 
.12. low (1) vs hi (0) sampling: 



<<SFFFF 
<<SFFFF 
<<SFFFF 
<<SFFFF 
<<SFFFF 
< < S FFFF 
y:«SFFFF 
y :<<SFFFF 
y:«SFFFF 
y:«SFFFF 
y :<<SFFFF 
y :<*5FFFF 



bit 
bit 
bit 
bit. 
bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 



(amber) 
(amber? 
(amber» 
( amber) 
(red] 
(green V 
( red: . 
(red) ■' 
(red) . 
( green V 
(amber; 
(amber; 



:CA1: control, the decoder 'digital-to-analog converter reset line. 



define 
define 



SET_DAC RESET 
CLR DAC~RE£ET 



!LB: test the loop back. . 

define TST SET LOOP BACK_DCD 
define TST"CLR"L00P;bACK_DCD 
define . TST~SET~LOOP BACK_FRADPCM 
define TST2ciR"lOOP.BACK_FRADPCM 

12: test the . MAIN phase, lock, loop , detect 



'bset *2.x:<<SFFE5' 
'bclr ' *2.X:<<SFFE5' 



vjclr <*0.y :<not_app; 

.'jclr \ «0,y :<not_appl 

'jclr" UC .y :<nct~appl 

'jclr «C . y : <nct~appl 
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; • ' \ • ■ • -37-;:. :;' : ' ; ' : . '•• . 

.. def ine '. 7ST_SE7 PHASE LOCK DCS ' 'jset ^O.x: <<SFFE5 * : 

.define TST_CU*_PHASE~LOOTdCD '. '. ' jcir •#0>x:<<$FFE5'\ 

TOGGLE_WATCH_DOG_DCD macro 

; encoder host interface watch dog tickle 

,-see what the host expects for a dog tickle and act accordingly 
;: if. bit M_HF0 (host i/f flag 0: of X:M_HSR (host status register) is set. \ 
• . set~bit M_HF2 (host i/f flag 2) of . X:M_HCR . ( host control register) ■ 

else " ■ /. 

. V" clear bit M_HF2 (host i/f flag 2) cf X:M_HCR (host control register) . 

•jset #4,x:<<SFFE9, watch dog CO 
bset ,". #4,X:<<$FFE8 ~ • " ~ . ■ 
jmp <_watch_dog_lo 

watch dog 00 

"... - ~. bcTr ■ : *4.x:«$FFEe 

_watch_dog_10 

• endm ' . 

INTERRUPT^HOST_DCD macro , . 

; wiggle host interrupt I HACK bit 14 of port b 

bset #14,x:<<$FFE4 

nop 

nop 

movep . y:word_out ,x:<<$FFEB ;output leds for last ■ frame 
■ nop 

. 'nop' 

bclr , .. #14 ,X:<<5FFE4 
endm ' . " 
IN:?_H0S7jreCT0RS_DCD macro 

.•initialize the encoder host vectors with start-up valid settings . . 

. 'move. . #>$0,x0 ■ 

move xO f y: host 24_word ' 

■ - endm • • . 

GET_SWITCHES_DCD macro LOOP. 

; copy : switches received under host vector interrupt 

■ move . •' y : host24_word , xO 

moye ■ \ x0,y:word_in . 

. endm • 

; BRAD , low/high y get. the selected bit rate 
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! ! :28.8 



define 
define 
"define- 
define 
define 
define 
define 
def ine 
define 
define 

3 

define 
define 



!28.6 



7S7_SE7 AUTO BIT RATE DO 

' TST clr~alto~bit~rate~dcd ■ 

TST~SET~AUTC~BIT~RATE~FRADPCM . 

tst~clr"auto"bit"rate_fradpcm 

tst~sset auto bit rate fradpck 

tst~sclr~adto~b:t~rate~fradpcm 

tst~set lo bit rate dcd • 

tst~set~hi~btt~rate~dcd 

tst~set~uTbit~rate~fradpcm 

tst^set;hi w b:t^rate"fradpcm. 

set l0 bit rate dcd ' 
set~ki~bitj*atejdcd 



• jclr 
•jclr 

vjclr; 
'jclr 
'jclr 

• jcir. 
'j-clr 
'jcir-; 

jcir : 

.;jcir; 

;bcl: 
' ;bcl: 



no 



y:<nct_app.' 
v:<not_apel' 



1*0 , y :<nct_appl 
#0', y :<nct~appl' 
no ,y : cnot^appl ' 
tO.ytxnot^appl' 
. no,y: cnot^appl' 
no, y : <nct~appl' 
»0,y: cnct^appl* 
#C.y:<nct~appl' 

#0, y : <not_appl'' 
#0, y : cncc^appl ' 



;C0DAD.MUS/G722 :.' get the selected, type . of, decoder input data 



de f me 

define 

define 

define 

define 

define s 

define 

define 

define 

define 



! i 12S.B 



define 
define 



TST SET AUTO CODED_DATA DCD ■ 

tst~clr~auto~coded DATA~DCD_. 
tst"set"a # jto"coded"data"fradpcm 
tst~clr~auto~coded~data~fradpcm 
tst"sset auto_coded data fradpck 
tst sclr"auto code:Tdata~fradpcm 
tst~set musicam data dcd~ . 
tst~set~g722 data dcd 
tst~set~mus i cam_data_fradpcm 
t s7~ s e7~ g 7 2 2 _d at a_frad p cm 

set musicam data dcd , 

SET"G722 DATA DCD 



jclr . , #0. y : cnct_appi' 
jclr. 1 no , y : : <nct~appi'' . . 
jclr ■■■ #3,y:<not~appl' 
jclr . ItC ,y:'<nct"appi' : 

' j srlr *C, y :<ri=t_appl' 
' 3 sclr # 2 , y : <nct3appi 
jclr . *0.,.y : <nct_appl\ 
jclr no , y :.<not_appi ' " 
jclr no r y : <not~appl.V 
jclr . #0,y: <not~appl'. 

' ;bcir 80, y : <not_appl' 
; bclr #0,y.<nct~appl f . 



; : : :28.e 



•S^-AD low or high: oe: the selected- sampling rate 

] chcice. pairings (A/BJ are: 16/24 16/32. 16/48 24/32 24/48 32/43, 



: 26 . 5 



define TST SET AUTO SAM PL£_RATE_DCD 

define TST~CLR~AUTO~SAMFLE~RATE_DCD 

define TST~SET~LO SAMFLE_RATE_DCD 

define TST~SET~KI~SAMPLE_RATE_DCD 



define ''SET LO SAMPLE RATE DCD 
define. SET~KI~SAMPLE~RATE_DCD 



; : : :26.8 ' 

; E4 .: ir.fcrm the. encoder:. 

'. - def ine SET_DEC0DER_FRAMED_DCD 
;DSWT: y.ute the decoder output 

"'• : define TST SET MUTE_OUTFUT_DCD 
'define . TST'CLR'MUTE.OUTPUT.DCD- 



'jclr **C , y :<not_appl' 

'jclr 1*0 , y : <nct~appl* 

'jclr n 0 ■. y : <r.ot~appi * 

'jclr »0 ,y : <not^appl' 

' ; bclr ■ : **'C , y : <not_appl ' 
' ;bclr »0,y : <nct2&ppl* 



";'.;bclr : #0,y:<r*ct_appl 



'jclr #C,y :<not_appl 
jclr # C , y : <not"app 1 



;DSWS, DSW5:. test the raonc output channel- requirements 



define TST SST MONO ONE_CHANNEL_DCD 
: define TST~CLR~MONO~ONE_CHANNEL_DCD 

define . tst~set>iono~leftj>r_right_dcd 

define TST~CLR~MONC LEFT_OR_RIGKT_DCT 



'jclr - nc ,y:<not_appl' 
jclr #0.y:<nct_appl' 
• ' jclr. ' . no ,y:<nct~appl' 
."'•jclr. . : .#0.y:<nct"appl.' 
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:. -39.- 

;tc be activated sometime in CDQ10C0. 

'. define' TST SET FADE OUTPUT DCD 

define TST"CLR~FADE*OUTPUT"dCD 

define. TST SET"""FADE~UP DCD 

define TST~SET~FAD£ DOWN DCD 

define. FADE INCREMENT ' 1' 

define FADE^SOFTEST 40^ . 

define FADE - START UP '20* 

define FADE~FRAMES '2' 



•jclr *0,y :<nbt_appl* 
'jclr #0.,y :<not~appI* 
.-' jclr #0, y : <not_appI ' 
'jclr- #0,y :<not2appl ' 
;2 Db per frame ~ 
;max of down 80 Db 
;max of start up 40 Db 
; fade every N. frames 



; LINSELO , LINESEL1 : test if line 1 and/or line 2 is selected: 



define TST SET LINE 1 SELECT DCD / 'jclr 

define TST~SET~LINE22~SELECT~DCD / . .. 'jclr 

define TST CLR~LINE~1~SELECT~DCD 'jset 

define TST~CLR2LINE~2~SELECT~DCD '/ ' jset 



,#0,y:<not_appi* 
#0 , y : <nor_appl ' 
#0, y : <not~appl ' 
#0, y:<not~appl* 



;DIAGNOST (ANCELDTA) : test whether diagnostics programming is to be executed 



define 
define 



TST_SET DIAGNOSTICS DCD 
TST CLR~DIAGNOSTICS~DCD 



;BR0 # BR1, B.R2 : get the ancillary data baud rate 

def ine TST SET LOW BAUD RATE_DCD 

define:. TST"SET2MID"BAUD~RATE DCD . 

define TST^SET HIGH_BAUD RATE_DCD . 

define TST CLR~LOW BAUD RATE_DCD ; 

/ define TST"CLR MID~BAUD~RATE DCD 

define TST~CLR~HIGH BAUD RATE DCD 



'jclr. #0,y:<n6t w appl' 
'jclr #0,y: <not~appl' 



'jclr. #0, y: <not_appl' 

'jclr #0, y: <nct^appl' 

'jclr #0,y : <not~appl' 

' jclr . , #0, y: cnot^appl' 

'jclr #0,y:<not"appl' 

'jclr #G,y : <not~appl' 



; BRO , BR1 , BR2 : get diagnostics code. when DIAGNOST (currently ANCELDTA) is set 
; dip switch interpretations. for diagnostic operation 



define TST SET LOW DIAG CODE DCD 

de f ine TST~SET~MID~DIAG~COLE~DCD 

define TST~SET~HIGH D I AG_CODE_DCD 

define TST~CLR~LOW DIAG CODE DCD 

de f ine TST~CLR~M I D~D I AG*" CODE~DCD 

define TST~CLR HIGH DIAG CODE DCD. 



'jclr. 

•jclr 

•jclr. 

•jclr 

'jclr 

•jclr 



80,y.:<not_appl' 
(*0,y : <not~appl' 
#0,y : <not~appl' 
no, y : <not~appl ' 
HQ ,y: <not~appl' 
#0, y : <not~app*I ' 



.•summary alarm relay: alarm relay associated with alarm LED 



define SET ALARM RELAY DCD . 

define. CLR~ALARM~RELAY DCD - 

define TST~SET ALARM RELAY_DCD 

define TST_CLR~ALARM~RELAY DCD 



' ;bclr 
' ;bclr 
'jclr 
'jclr 



#0 # y : <not_ appl ' 
tt0,y :<not~appl' 
#0iy : <not"2appl' 
#0, y:<not_appl' 



rdefine state for all leds on and off for start-up 



define" 
define . 



OFF LEDS DCD 
ON LEDS DCD 



'$00' 

'$ff ' 



;off if bits set' 
; lit "if bits clear' 



; turn leds off ; 

.-. define 
define, 
define 
define 



OFF_FRAME_LED DCD. 

OFF CRC ERROR_LEC_DCD . 

off"overload LED_DCD 

OFF"~PHASE LOCK_LED_DCD 



' bcir 
'bcir 
•bcir 
'bset 



#1 , y : <word_out ' 
#2 , y : <word~out ' 
#3 , y : <word~out ' 
#4 ,y : cword^OUt ' 
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define OFF REED SOL LED DCS . 



'bclr #5 ,y : <word_ouc ' 



define OFF LC BIT RATE_LED_DCD 
. define . OFF~HI~B ITERATE LED DCD /. 

define OFF~MUSICAM_LEP~DCD~ 
; ■ define OFF~G722 LED DCD 

define OFF~PHASE LOCK LED FRADPCM 
OFF_PHASE_LOCK_I^D_MACRO_FRADPCM . macro 
■ bclr " #57x:<Eram_Mem 

move . x: <Eram_Mem, xO . 

movep xO,y:<<$FFFF 

endm • 

OFF_OVERLOAD_L£D_MACRO_FRADPCM macro 
bclr" #6,x:<Eram_Mem 
movep x : Er ani_Mem7y : < < S FFFF 



* ;bclr 
' ;bclr 
' ;bclr 
' ;bclr 
..' ;bclr 



#C ,y : <not_ 
#C ( y:<pot 
#C ,y: <not] 
#C,y:<not^ 
#0,y: <not] 



appl' 
appl* 
appl' 
appl' 
appl' 



:um cff red led 



turn off overload led 



endm 
define 
define 
define 
define 
define 
• define 

; turn leds or. : 

define 
define 
define 
define 
define 



off lo sample rate_led dcd 
off~hi~"sample~rate led~dcd. 
off~mono led dcd " 
off~stereo led dcd -. 
off~joint led dcd ... 
off~alarm~led""dcd 



ON FRAME LED DCD . 
ON~CRC ERROR~LED DCD 
ON~OVERLOAD LED DCD 
ON~PHASE LOCK LED DCD 
ON~REED SOL LED DCD 



define ON LO BIT RATE LED DCD 
define ON~HI~BIT~RATE~LED~DCD 
define ON~MUSICAM LEDJDCD 
define ON~G722 LED DCD , 
define ON~PHA£E LOCK LED FRADPCM 
ON_PHASE_LOCK_LED_MACRO_FRADPCM macro 
#5,x:<Eram_Mem . 
x:<Eram_Mein,xO 
X0,y: <<$FFFF 



"■' ;bclr 
• ;bclr 
' ;bclr^ 
' ;bclr 
' ;bcir 
- ;bclr 



'bset 
'bset 
'bset 
'bclr. 
' bset 

' ;bclr 
' ;bclr 
• ;bclr 
' ;bclr 
• ;bclr 



#0, y :<not 
#0,y :.<not] 
#0,y :<not' 
#0,y:<not 
fc0,y:<not 
#0,y:<not 



.appl' 

.appl' 
.appl' 
.appl' 
.appl' 



#l,y:<wqrd_out* 
#2 , y : <vord_out ; 
#3 ,y :<word_out' 
#4 , y : <word^out ' 
*5,y :<word_out '■ 

#0,y:<not_appl* 
#0,y:<not2appl' 
#0,y : <not~appl' 
#0,y : <not~appl' 
#0,y:< not "appl* 



. bset 
move 
movep 
endm 

0N_OVERLOAD_LED MACRO_FRADPCM macro 
, x : <Eram_Mem 
x : Eram_Mem7y : <<SFFFF 



; turn on red led 



bset 
movep 
endm 
define 
define 
define 
define 
define , 
define 



;turn on overload led 



on lo sample rate ledjxtd 
on~hi~sample~rate~led_dcd 
on"mono led dcd 
on~stereo led dcd 
on~joint led dcd 
on~alarm~led dcd 



' ;bclr #0vy:<not_appl' . 

' ;bclr #0,y:<not~appl' 

' ;bclr #0,y:<not~appl' 

• ;bclr #0, y:<not2appl' 

.' ;bclr #0, y:<not~appl\ 

' ;bclr #0,y:<not~appl* 



define SET_LEDS_DOD 

define . TST SET CRC_ERROR_DCD 
de f ine TST~CLR~CRC_ERROR_DCD 



'movep y:word_out,y:<<$FFFF' 

. ' jclr #0,y :<not_appl' 
' jclr . #0,y :<not_appl' 



;define macros for getting the. encoder and decoder external switches 



GET BIT RATE CD macro 
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•; encoder interpret, . t he external . switches for the ; framing' bit rate ."■ 

move ■ #>RATE_LO,x0 - ; start with lower KB it rate 

,* ! : !28 .8 : force low bit rate- • 
. , . i XST SET LO BIT RATE' CD, grte_a 

[. j j ; mov I . ">>RATE~HI,xO ~ . • ; otherwise, use higher KBit rate 
■ • 1 1 i arte a' ■ 

"\ move xO,x:tstrate \ ; set selected rate , 

endm :..-■•?■'■,'. ' \- " ' '. - \ •' "'■ /' -\ 

GET_FRAME_TYPE_CD macro 

.; micro encoder only handles mqnc frame type 

.move 1 "' #>MONO,x0 
move xO, x:tstfrme 

;;; determine the NEW or OLD ISO CRC-16. specification - 

b^r #CRC OLD vs NEW, y : <stereo ;0 -OLD ISO specification 
' ■ * ;l-NEW ISO specification. 

\\ TST_CUl_NEW_ISO_CRC_CD . _gtyp_a ; if not use NEW CRC, done 

i 'winiCodec board FORCE new ISO crc \ 

bset #CRC_OLD_vs_NEW,y:<sterec ; ;i-NEW ISO specif ication - 

; ;;;_gtYP_a 
'; default to old CCS CDQlGOO's 

bset #0,x:tstoccs ;l«old CCS CDQ2000's 

endm • 

GET_CODE_TYPE_CD macro 

.- encoder interpret the external switches for the type of coded output 
MUSICAM frames or G722 . 



.■it 



! 128.8: force MUSICAM \ ■ ■■ ' 

TST SET MUSICAM DATA CD , jcde a 

bset #0,x: tst code . .-indicate G722 output 

OFF MUSICAM LED CD ■ , ;turn off MUSICAM indicator 

-I: OFF"LOW SAMPLING LED CD ; turn off low sampling rate indicator 

' ; ; ; S« 7*7? 2 "LED CD " " ;turn on G722 indicator 

: &°£k%&>;\ V V \ '^et line for encoder 6722 , . 



! • » j«p~ <_gcde_b 



; ! ! ! -9 cd £- a TqTCAM j-Q CD ' ; turn on MUSICAM indicator 

o?F^72^LE^CD '^urn off G722 indicator . 

SETl^SIC^DATA^CD ; . ; set line for encoder , MUSICAM 

; • ! !_gcde_b • 

endm- 
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GST_SAKPLE_RATE_CD macrc . ' 

; micro encoder : handles low and high' sampling races 

*;!! 1-28.8: force low sample rate 
'.II* . TST SET LO SAMPLE RATE CD, gsmp_a '.. 

'.! ! • bset ~#o7x: tstsipl : .." / "vindicate high K sampling, rate 

OFF LOW SAMPLING LED CD .; turn off low sampling rate indicator 

1':!: SET~HI SAMPLE_RATE_CD ; set. line for high sampling rate 

; ! ■ : . jmp"~ . ' <_gsmp_b . . .. 



: • gsmo a 

l" TST SET_G722 DATA_CD . _gsmp_b 
ON LOW SAMPLING LED CD 
' SET L0 — SAMPLE RATE_CD, 



;do not turn on if G722 

;turn on low sampling rate indicator 

;set line for low sampling rate. 



_gsmp^b 



endm 



GET_BAND_WIDTH_CO macro. 

■ encoder interpret the external switches for the band -width code 
\ to set band-width based on frame. bit rate and type of framing 



! ! I 
i i ■ 



TST CLR LOW BAND WIDTH CD, gbnd a ; check switch to interpret as 0 
bset ~#0,x:tstband " " ~;set the band width code low bit on 



' ' gbnd a - '.. 

" TST CLR HIGH BAND WIDTH CD,_gbnd b ;Check switch to interpret as 0 

bset ~#l,x7tstblnd " Tset the band width code high bit on 



i i i j 
. t i » 



"; 1 : :_gbnd_b ••• 

• bits 0-4 allow user set audio band width by specifying the upper 

sub-band to be considered for bit allocation. 
- -he range is from 4 (900 Hz) to 30 (6750 Hz): 

' " NotU- 30 is the default if the value is not within the range 



i i i i. 



move 
move 
move 

endm, 



y:word in,x0 
x0,x:tstband 
x0,y:bndwdth 



;get sub -bands for y:<usedsb 
;put value in the new i/p . 
; & put value in the . current . 



GET_BAUD_RATE_CD macro 

. ; encoder interpret the external switches to get ancillary data baud rate 

. TST CLR LOW BAUD RATE CD,_gbaud_a ; check switch to interpret as 0 
i I ; : bseE -#0,x:tstEaud ~ •/ ;set the baud rate low bit on ■ . • 

•; ; '; ;- Sba TST a cLR MID BAUD RATE_CD,_gbaud_b .-check switch .tc interpret as 0 
i i t>set -#i,x:t«c5aud . ;s«t the baud race middle .bit on 

! I ! ;- 9ba ^ST b CLR HIGH BAUD RA7E_CD._gbaud_c .-check switch to interpret as 0 
: '; i i i . bseE T?">2 . xTtstblud , ; . ..• ««t the . baud . rate high, bit on : - 

' ; \ : • _gbaud_c 
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'• ' • . : . '/./.:\ : ;' .-43- • ' ". \ . . :'; 

' • ' er.dx. •'. • ! 

; decoder external switch macros . • • 

• GET_5 1 T_RATE_DCC ■■ mac r o ' ; 

• ; decoder interpret. -he external switches for the framing bit rate 

; begin with raw code, for lower framing bit. rate , ■ clear .aut a; .select flag/ 

/'.•"■■■move- *>RATE_LO,xC 
; :t:28. 6: force low bit rate 

bclr . ' ■ «AUTO SELECT BIT RATE , y : < ct 1 f igs 
';'!!!■: ...move *autorate . ro" .. • ~ . . : ;addr cf curr bit autc select .state ; 

if net auto select switch is set. go by the. selected switch setting 

; : : : T£T_CLR_AUTC_5:T_RATE_DC2,_grte_c ;if not auto \ select , ; test other sw 

i ! : : ;if m loop back, set the bit rate to high Kbits 

-si CLR LOOP BACK OCD. grte a.' ; if not Ioof. continue v- 
'"l" move ~#>RATE KlTxC ~ . : ; ;sec higher KBits raw cede 

jmp ■' < gr.te"e ■' ; install .chosen bit rate ■ 

; : : ! ;_grte_a ' 

;. !l.! ;see if already in : auto select, bit rate. 
' • ■ * * ' ■ ■ ■■ ■ ■ ' • ■ * ■* ' ■ 

. }set ■. #0,x: (rC) ,_grte_b ... . ';if already' in auto, skip next. 2 stmts ■ 

■ . ■ ■ " ■ ■■ 

■ sec save code as' in auto select bit .rate and indicate switch changes 

\ \ : : bset #c,x: (r0) . ■" ;bit 0 - 1 • AUTO SELECT 

; : : : bset *4 , y : <not_appl ..-indicate a switch change 

.; : : :_grte_b * . 

--'•••I . . '. ■ -. - • . ■ ■ • 

\ \ : i :set control flag to -perform auto seiect cf bit rate. . .. 

;:!; '. bset #AL , TO_S£LECT_B ITERATE , y : <ct If lgs 

bset " #C,x:3utosel . 

move y : f rmrate,x0 - ruse *ast rate t= start 

• ; i i :"' }tnp '" < — grte_e 

set the bit rate 'as; selected by the switch 
'-'■'■; : ; :_grte_c •. ' * " 

\ ■ i i .-see if currently in auto select bit. rate : / 

iclr #C. x: irC* ._grte_d .- - ;if not in autc, skip next 2 stmts . . 
• \ : : ;clear save code as NOT in auto select bit rate and indicate switch changes 

; bclr - »0.X:(r0) ^'diZ 0 . 3 - NOT AUTC SELECT 

bset - . #4 , y : <nct_appl : . ; ; indicate a switcn cnange . 



:"! J_grte_d. 
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; ; : ! ;S ee if low cr high bit race selected, if : , keep lower Kbit raie . 
]\: ! ' ■ TST SET LQ_BIT_RATE_nCD,_grte_e 

;!!! move ~#>RATe2h:.xO , ; ^otherwise,, use higher KBit rate 

.* : ! : grte e • .' v v " 

"-. move ■ xO,x:tstrate ' ;set selected rate. ..... 

endtn - .. ,■■ " • ••• 

'GET_FRAME_TYPE_DCC macro. 

; decoder interpret the external switches for the frame type 

■ ].■■■. ' (not applicable! 

however, set the current mono frame output channel parameter 

; : clear the' mono, out both channels flag and set the flag, if needed' ■ 

bset #MON0_0UT BOTH, y: <ctl figs ; mono out both channels 

• TST CLR MONO ONE_ CHANNELED CD . _gf rm_a . 

bclr ~fM0N0_0UT_B0TH,y7<ctiTlgs ~ ;mono out one channel 

" _gf rm_a ; ■ 

/"clear the mono" output one channel "flag. indicating LEFT . 
; and set the flag to the RIGHT channel- if needed' 

bclr #MONO_OUT_CHANNEL,y:<ctlf lgs ;mono one channel out LEFT 
TST CLR MONO. LEFT~OR RIGHT_DCD, _gf rm_ b 

bset ~#M0NO_0UT_CHANNEL,y :<ctTf lgs ; mono one channel out ; RIGHT. 

_gfrx_b 

' endm • 

■ GET' CODE TYPE_OCD macro. . . 

decoder interpret the external swicches fcr the type cf coded input 
■ '. ■ ; MUSICAM frames or G722 . 

; starts out as MUSICAM (default), clear auto select flag 

• .-: 1126.6: force MUSICAM • 

.*:!! bclr . #AUTO_SELECTJ>ATAJTYPE.y:<Ctlflgs 

■ ;!:: '. "'move J "' *autocode,r0. 

i ; if not auto select switch is" set. go by .the"' selected switch ' setting . 

• ■ " . * ... . . * . ; ' . .*..'.'■ 

'. TSTjCLR_AtrT3_C0DE3_DATA_DCD,_gcde_b '* 
■ r * • j ' .. ■ ■ - . ■ ' ' ■ ■ / ' •■ ■ 

!-::i;if in loop back, leave the data type as MUSICAM 

TST_SET_LOOP_BACK - DO:,_gcde - d' ; if in ■" loop, done selection 

. !• i • i ;see if already in auto select code type 

: : \\\ : . •'.■'■jsef" *0/x:.(rO. ;_gcde_a ^ if already, in autc. skip next 2 stints. 

\ \ \ : iset save code as in auto select code type and indicate switch changes 
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. .. •.. . . •. - ; :.. "' : . ■■ -45- • • ' . '. ... .' •; 

: : : bset *c.x: >ro. k . ' ; bit c » i - Atrrc select. "-' 

: : bset *4 #y :<not_appl " ... ■, .-indicate -a switch ■ change 

.! ! :_gcde_a': ■ ." • , 

: : : ;set contrcl f lag to perform auto, select of . bit rate' 

! ■ : . bset #AUTO_SEL£CT_DATA_TY?E, y : <ctlf las • 
!":';':' ". bset ; .■ #0 ,x:autosel ' • ;.~ ' 

: : : ; set to. auto select .;, continue 1 with previous type of coded, data . 
! : : ' move y:iputcde,xO . 

::: move . xO.x: tstcode ..-.indicate last input type. 

: : : . . jmp <_gcde_d ••• 

: ; : :_gcde_b ' ; \ . ■ 

: : ! ;see if. currently' in auto select -code type-.' 

! : jclr *0 ,x: £rC, ,_gcde_c ;if not in auto, skip next 2 stmts 

:i:;clear save code as NOT in auto select code type and indicate switch changes 



! : bcir #0.x: ArO) . • ?bit 0 » 0 • NOT AUTO SELECT . 

n bset *4 ,y : <not_appl ■ . ^indicate. a switch change 

t i . . ■ . ■ ■ . ■ . ■ ^ ■ . ■ ' ■ . . ... ■ 

! ! gcde c 

. !~ . TST SET MUSICAM_DATA_DCD l _gcde_d ■ 

: ■ .bset ~#0, x: tstcode. . ; .^-indicate G722 input ' .; 

, :_gcae_d 

indicate the switch" .selection to encoder for data type 

!!;; TST SET ENCODE G722_DATA DCD, gcde_e ;if G722. set that for encoder 

set~encode_musTcam_data_dci; ■ ' .';tell encoder MUSI CAW : 
! ! j m P~ '■ ■ <_ gcde_f ■ 



it. 



iii 



; cede e ■•• 
;~ SET~ENC0DE_G722_DATA_DCD/ ;te.- encoder G722 

;!!!; ;_gcde_f 

~ endni *. 
GETlSAMPtE_.RATE.DCD macro..'. 

; decoder interpret the external switches for the sampling rate 

; if select switch is set. see which type of coded data is being input 

; begin with the code for low sampling KHz rate, .clear auto select flag 

move #0, xO ' 
; :::28.S: force low sample rate 

bclr »AUT0 — SELECT_SAMPX*E_RATE , y : < ct - f Igs . . 
. ;• !! : "move * #aut ostr.pl. rO : ■ - / 



no: 



auto select switch is set; go by the selected switch setting 
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. . " .• : . . . . ■ -46- • " 
TST_CLR_ALTC_SAMPLE_RATE_DCC , _gsmp_b "; if r.Dt au:c select, test ether sw 
; i : : ;.if in loop back, le*ve ;he low sampling; rate selected - 
i'l.ii;'-- TST_SET_LOOP_BACK_DCD,_gsmp_d: ; if in loop, done selection 
.; : : : ;see. if already in auto select sampling rate 

."; : ! : jset , #0,x:.(rO) ._gsmp_a . : ;if already in auto, skip next 2 stmts 

;;.!!; set save code as in auto select sampling rate and indicate switch changes 

; i : : bset #0,x: trOi . .... ;bit 6 •• 1 - AUTO SELECT 

.'; : : ! - bset .y, #4,y:<not_appl • .- Vindicate a switch change " 

; i : :_gsmp_a 

ser control flag to perform auto select of sampling rate .• 

';!':: bset •' *AuTO_SEX£CT_SAMPLE_RATE.y: cctl figs' - ' 

;!!! bset . #0 , x:autosel~ ■" 

move y:sraplrte,xO ;use last sampling rate to start 

,- : : ! jmp '. <_gsmp_d , 

''!'"■-'.- ■ • - * ■ " * . ' 

;! : : ; set the sampling rate as selected by the switch 

• ; !': *_gsmp_b 

;;!i !,*see if currently in auto select sampling rate 
* ! I I ■ 
;!!! . jclr #0,x: ir0).,_gsmp_c . . ;if not in auto, skip next 2 stmts 

;!!!;clear save code as NOT in auto select sampling rate and. indicate switch cha 

.••»t • ■ ' ^ 

bclr tO.x: <r0) ;bit O'-'O * NOT AUTC SELECT 

bset .. "#4,y:<not_appl / ■ ; indicate a switch change 

- • • * * . 
; ! : : gsmp c 

;!!.:" ' TST_SET_LO_SAMPLE_RATE_DCD, - gsmp_d ■ 

;!:: move #>T,xO " ~ " Tctherwisei use high rate 
.iii 

; i : :_gsmp_d ••/ . 

.move'' xO,x:tstsmpl 



.it* 
..iii 



vindicate the. switch selection tc encoder for data sampling. rate 

;•!'.';! TST SET ENCODE_K2_SAMP_RATE_DCD , _gsmp e ;if high rate, set for encoder 

; ! ! i ; ; SET~ENCODE_LO_SAMPI^_RATE_DCD vtell encoder low sampling rate 
;!!!;; jmp". <_§smp_f . 

*!!!*■.• '*' • ™ ' "™ • ''■''''*.'' ; 
r : I l t ; gsmp_e ■ 

SET_ENCCDE_HI_SAMPL£_RATE_DCD ; ; ;t,ell encoder high, sampling rate 

,*:::,* •; _gsmp_f 
• endm • • 

GET_BAUD_RATE_DCD macro //. 
; decoder interpret the external switches to get ancillary data baud rate-. 



SUBSTITUTE SHEET (RULE 28) 



\Zd 0R1GINAV J) 



WO 96/32805 



PCT/US96/04S35 



' " " \. ■■■ '. • . • • -47- . :' • ' •' ••; • \ . V : ;.. . . ;•. 

■ ;!':.:" V TST CLR_LOW_BAuD_RATE_DCD,_gbaud_a ; check switch to interpret as :■ ■ , 
•*.;':::■ '•" bset ~»C, x: tstoaud," ~ ' .Tse: :.ie- baud rate low cit'cn;. ■ 

*. : :■ abaud_a . 

■ TST CLR_MID_BAUD_RATE_DCD,_gbaud_b ; check switch to interpret as G 
bset x:tstbaud.~ ~ • • ;set the baud rate middle bit or. 

■- ;.: : : abaud_b ■ "• ' - . V 

TST CLR HI GH_B ACD_RATE_DCD , _gbaud_c : check switch ■ to interpret as 0. " ■ 
= " . bset 1 ""#2,x7tstbaud" ■ ~ ..-set-, the baud rate high bit- or.- 

; i : : _gbaud_c 

endm ; - -- 1 _ 

GET METK3D_OFERAT I ON_DCD macro ' 

■V: decoder get external" switches for method cf operation;' NORMAL vs DIAGNOSTIC; 

'' endn- - 

: GET_ilAGNOSTICS_DCD macro .- 

decoder get external switches for diagnostic operation:. NORMAL vs 21 AGNOSTIC 

; !■• : ; if switch set for normal operation, skip rest of this interpretation 

;\\: TST "CLR_DIAGNOSTICS_DCD, _gdiag_c. .-switch set for normal or diagnostics 

!- l : ! ; set the diagnostic code bits .... 

TST CLR LOW_DIAG_CODE DCD, gdiae_a ; check switch to interpret as 0 . . 
bset "*tO r x:tstmeth " . " . "Tset diagnostic code low bit or. 



; : : : osiaa a 
: : : . TST_ 
; : : : bset 



: CLR MID DIAG CODE " DCD , gdiag_b ;check switch to interpret as 0; 
it. ~#l,x:tscmeth ~ "■"*" Tset diagnostic code middle bit or. 



;■: : : cdiao b 

TST CLR HIGH DIAG CODE_DCD,_gdiag_c ; check switch to interpret as Z 
: .". bset. ~*2. xTtstraeth. ; set diagnostic code high tit or. .. 

■. t * * . ' ■ " • ' . . . ' 

Y:::_gdiag_c 
. endm 

. ■ VER I F^_A*-TC_SAMPLE macro 

; : ! :Cicicast : ■ NOT APPLICABLE ; ' 

' endm." •' : _ / "■ 

;fcr CDC2I12 start with flag set to decode MPEG-ISO frames: 
" bit 0:'. MPEG-ISC 
^ ■■ 1 - old CCS CDQ's 

. ; " bit 0: C - MPEG-ISO at -240CC sampling 
. . . • - old CDQ10CO (MICRO) frames at 24000 .sampling 

TOC_MA!TC_SYKC_ERRORS_DCD macro - 
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, ; -48-; " • - / • • ■;. ' ; \ \. / ■ - . . - 

;how tc handle the set of the RE FRAME flag after toe many successive 
: svr.r carterr. failures- -■ . 4 . 

.;■ .""always do old CCS . CDQ' s ; • 

bset #0.y:oldccs . Vor.ly handle eld CCS CDC's • 

bset • #l,y:oldccs . ;old CCS CDC frms 9 14.4 K sacipl 

, ■ jmp <restart .-restart . as eld CCS CCC'.s • 

endm ' " ■-" ■ *• • ' •. ' 

?CC_MANY_B:T_ERR0RS_0CD macro . ' 

.low to handle the set of ' the '.REFRAME flag after too menay successive 
■ ; . ■ CRC-16 bit errors. 

; . if the cldccs bit is not set., switch frorr MFEG-ISO to eld CCS CDC's : ;, 
: ; if old CCS has already been. tried, restore MPEG- ISC and . re frame 

move ' *oidccs,r0 : ; to test oldecs flag Ifcit C :• • 

•. aop ■ • ■ • ;' 0 » -MPEG-ISC '. 

*■;■-' ■■" . i - old ccs 

_clc_ces / / 

; try ■ decoding frames from older CCS. CDS' s units . . 

' bsec #C,y: oldecs : ; set old CCS " flag \ 

; : i :dbg . - • 

■ nop •'. . 

■ nop . ' ' • : , . 

nop: ■ ... . ' •. 

nop ■ ■ 

". nop ' . • 
; 1 1 i dbg 

■ -;mp • <reframe - " ; re frame, try old. CCS 

endrr. • , 

;This code handles the special ancillary data problem when frames have 
; . toe r.any encoded according to the decoder baud rate and the frames also 
!• have the old ISC (CCS) CRC- 16 checksum algorithm for protection. 
; This condition occurs when trying to determine if the stream ef frames is 
• from an eld CCS CDQ2000 and are two channel frames at low. bit rates or is 
i the stream from a new CCS CDQ with MPEG-ISO frames but are protected 
' • ; using the old ISO (CCS) CRC* 16 algorithm. ; 

• 70C_MANY_DA?A_ERR0RS_DCD macro . " 

' ;clc CDC1GC0 mono" .frames 3 24 0C2, sampling do not apply te this . problem. 

;:set . #1, y: trl; ._tdata_lC : . . ;if eld CDQIOOO, skip over tc continue 

" ; if too many errors/ re frame using the oppc site eld; CCS- vs ' MPEG- ISO" with.. 
. ; low bit . rate/ two 'channel- frames,'.-' : 

'.'■"■■■ jset ' " *C,y : • rl> ._tdata_0G : ;if doing eld CCS, go switch tc CSC 



oset 



tO.y.oldccs ;switch to try old CCS decodmg- 



jmp <reframe ;reframe 
idata 0C - - * 

" belr -KO.y : oldecs. -.. ; ;switch 'to' try MPEG-ISO decoding 

3mp / <restart . , '; res tar" 
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tdata 'IC 



; define 
; ! ! !28.8 

■ !,V 128.8 



(baud 
bits 



endm > ' • -V ;'. 

ancillary data baud rates and max byte counts per frame : 

144 00 sampling rate ©80 msecs 

16000 sampling rate 72 msecs 
24000 sampling rate ® 4B msecs 
32000 sampling rate ® 36 msecs 
48000 sampling rate Q 24 msecs • ".' 
rate * milliseconds • bits received 

received then prompted to next even 8 -bits to ye ild max bytes) 



;M_SCCRr.nri (see pages 11- 22 & 11-31) * 



( (32. 000,000 / (64 * nnn ) ) - : 
where 32,000.000 is crystal, nnn 



:28 .8 



!28.8 



define BAUD300 
define M SCCR300 , 

3 

define BYTES 3 00 16 
define BYTES300~24 
define BYTES300~16 
define BYTES 3 00^24 

3 

define BYTES300_32 
define BYTES300 48 



; ! ! !28 



! I 28 



define 
define 
,8 • 
define 
define 
define 
define 

define 
define 



BAOT1200 . 
M_SCCR1200 

BYTE51200 16 
BYTES1200~24 
BYTES1200~16 
BYTES1200~24 



BYTES 12 00 
BYTES1200" 



32 
48 



128. 8 



128.3 



1 28.8 



define BAUD2400 
define M SCCR2400 

3 ■ 

define BYT£S2400_16 
define BYTES2400 24, 
define BYTES24 00~16 
define BYTES24 00~24 
3 : 
define BYTES24 00 32 
define BYTES2400_48 

define BAUD3600 
def ine ' M_SCCR3600 

define BYTES3600 16 
define BYTES360Q~24 
define BYTES3600 16 



'C 

'$662' 

'3' 
*3* 
* 3 • 
'2' 

'2' 
' 1 ' 

1 1 ''• '■ 
'SlaO' 

'12' 
'12' 
'11' 
*8' 

' 6' 

;«4' ; 

•2' 

;$cf t 

'24' 
'24* 
' 22 ' 
'15' 

'11' . 
'8' 

'3' 
'S8a* 

'36' 
'36' 
'33' 



(result rounded & converted to hex), 
baud rate' . 

.•dip switch code for 300 baud 
; set clock for 300 baud rate. 

;3 bytes (24. 0 bits «=> 24 bits) 

;3 bytes 124.0 bits «> 24 bits) 

; 3 bytes (21.6 bits «»> 24 bits). 

;2 bytes (14.4 bits »«> 16 bits) 

;2 bytes (10 .8 bits *«> 16 bits) 
;1 byte (7.2 bits =»> 8 bits) 

;dip switch code for 1200 baud 
;set clock for 1200 baud rate 

; 11 bytes (96.0 bits 96 bits) 
;12 bytes (96.0 bits 96 bits) 

;11 bytes (86.4 bits »«> 88 'bits'* 
; 8 bytes (57.6 bits «*> 64 bits) 

;6 bytes (43.2 bits .«> 48 bits 1 
; 4 bytes (28. 8. bits «> 32 bits; . 

;dip switch code for 2400 baud 
;set clock for 2400 baud rate . 

24 bytes (192.0 bits ■«> 192 bitsi 

;24 bytes (192.0 bits — > 192 bits) 

;22 bytes (172.8 bits -«> 176. bits) 

: ;15 bytes (115.2 bits -«> 120 bits) 

; 11 bytes (B6.4 bits -«> 88 bitsi, 
; 8 bytes (57.6 bits --> 64 bits) . 

; dip switch code for 3600 baud 
;set clock for 3600 baud rate 



;36 bytes (288.0 bits 
;36 bytes (28 8.0 bits 
;33 bytes (259.2 bits 



— > 288. bits! 
■ -> 288 bits 4 . 
264 bits: 
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128.6 



define BYTES3600_24 : . 

3 

define 3YTES3600 32 
;defme BYTES360C~46 

define BAUD4800 
define M_SCCR4 800 

define BYTES4 BOO 16 

define BYTES4 800*24 . 

define BYTES4B00~16 

define BYTES4800~24 



! : 128.8 



define 3YTES4800 32 
define BYTES480C~48 



128.8 



128.6 



define 3AUD38400. 
define M_SCCR3B400 

"define BYTES384 GO 16 
define BYTES384GC~24 
define BYTES38400~16 
define BYTSS3 84 00_24 

3 

define BYTES38400 32 
de f 1 ne BYTES 3 840 0_4 8 

define 3AUD9600 
define M SCCR9600 



128. 6 



128.8 



define BYTES9600_16 
define BYTES9600 24: 
define BYTES96Q0 16 
define BYTES9600_24 



128.8 



: 128.8 



define EY7ES9600 32 
define BYTES9600_4 8. 

define BAUD19200 
define M SCCR19200 
8 • " 

define BYTES19200_16 
define BYTES19200_24 
define BYTES19200_16 
define BYTES19200_24 

8 

define BYTES19200_32 
define BYTES19200_48 



' 22 ' ;22 bytes ■ l72..5-bits ■ «>' i i7€. bits . 

-'17' ; ;7 bytes (129.6 bits »«> 136 bits* - 

;'11 # • ;.ll bytes '(.86.4 bits «.»> 68. bits: 

"'4' • ;dip switch code fcr 4 80 0" baud,'; • 
VS68' ;set clock for 4800 baud .rate.,. 

.'48* ;48 bytes .. (384 .0 bits -•> 384 bits:. ' ... 
'4e* ' ; 48 bytes (3 84 . 0 bits ««> 334 bits 4 
'44' ;44 bytes (345. 6 bits. ««> 352 bits; 
'29V ;29 bytes 1230.4 bits -«> 232 bits- 

'22*. ;22 bytes'. (172.8 bits— -> 176 bits:' ' 
•M5' v, • ;15 bytes (115.2 bits «*> ■■ 120 bits 

'5' ;dip switch code for 3 84 CC baud. 

'SC. . • ;set clock for 36400 baud, rate 

'384' ;384 bytes 1 3072 . 0 bit s - = > 3072 bits: 
'384' ;384 bytes 13072. C bits -«>3C72 bits) 
'346' ;346 bytes -2764.8 bits «-> 2768 bits) 
•231*. ;231 bytes. E 1843. 2 bits »«> 1B48 bits: 

*173'.. ;173 bytes (1382.4 bits ««> 1384 bits.) 
'116' ;116 bytes (921.6 bits ««> 928 bits; 

'6' . ;dip switch code for 960C baud 
'$33' ;set clock for 9600 baud rate 

•96-' ;96 bytes (768.0 bits »■> 768 bits 1 
.'96' . ; 96 bytes . (768.0 bits ««> 768 bits: 
'87' ;87 bytes (691.2 bits -»> 696 bits; 

• 58 r ;58 bytes . (460.8 bits --> 464 bits;. 

'44' ;44 bytes (345.6 bits «> . 352 bits; 
'29*. ; 29 bytes (230.4 bits ■»«» 232 bits.: 

* 7v ' dip switch code f or 192CC baud .. . 
'S19' ;set clock fcr 1920C baud rate . 

'192' . ;192 bytes 11536.0 bits -•> 1536 bits* 
•192' ;192 bytes (1536.0 bits «-> 1536 bits. 

'173' . ; 173 bytes (1382.4 bits «-> 1384 bits: 
•116/ " ;116 bytes (921.6 bits — > 928 bits': 

'87' ;87 bytes (691.2 bits' — * 696 bits; 
•S8' ;58 bytes (460.8 bits. «-> 464 bitsi 



; define sampling rate table of ISO MUSI CAM frame header codes 



' SAM? DERATES; 

samplng'.' 

; 1 11 26. 8 ' 
; ! i :2e.B 

. dc 
■■ dc 
cc 



if SAMPLE_RATE_PAIR— SAMPLE_16K_ATO_24X 

SAMPLI NGRATE_ 1 6 
SAMPLE_ID BITVHIGH 
MAXSUBBANDS CCS 



; old CCS CDQ1000 sampling at 14.4 K 
;old CCS CDC10 00- header sampling id b 
;old CCS CDC100-' max sub-bands ; l char. 
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' ac 

dc ' 

dc 

dc 

dc. 

dc 

dc 

dc 
■dc'. 

dc 

dc 

dc 

dc. 
"dc ■ 

dc 

dc 



!28 . e 
1 28. 8 



MAXSUBBANDS CCS 
SAMPL I NGRAT£_1 € 
SAMPLE IO_BIT_HIGH 
MAXSUBBANDS CCS 
MAXSUBBANDS~CCS / ■■ 
MAXCRITBNDS~16 
NMSKFREQS_1? , 
SAMPLINGRATE 16 
SAMPLE ID BIT HIGH 
MAXSUBBANDS_CCS 
MAXSUB BANDS CCS 
SAMPLINGRATE 16 .. 
SAMPLE ID BIT_HIGH 
MAXSUBBANDS CCS 
MAXSUBBANDS~CCS 
MAXCRITBNDS~i 6 . 
NMSKFREQS_16 . 

. endif ' 



;oia CCS. CDG10CC max sub -bands I charm*: 
.-old CCS CDC100C sampling, a. 14.. 4 K 
;old CCS CDQ1000 .header samplma id;bit . 
;old CCS CDQ1000 max sub-bands 1 channel 
;old CCS CDQ1000 max sub -bands 2 channel 
..-number of critical bands at 14 .4 X . 
;num freqs used for coding at 14 . 4 K " 
;old CCS CDQ10C0 sampling at 14 .4 K , 
,-oId CCS CDQ100C header sampling id bit 
;old CCS CDO100C max sub -bands 1 channel 
;old CCS CDQ100C max sub- bands 2 channel. 
;old CCS CDQ100C sampling at 14.4 K 
;old CCS CD01000 header sampling id bit".: 
;old CCS CDQ1000 max sub- bands. I channel: 
;old CCS CDQ1G00 max sub- bands 2 channel 
; number of critical bands at 14.4 K 
; num. freqs used for. coding at 14.4. k 



■/.define framing bit .rate ..tabie 
EITRATES macro 
bitrates . 



; • i 128.8 
; ! ! !28.8 
; entry for code 

dc • 
. dc. 

dc 

dc 

dc - . 

• dc. • 
dc 

dc ■ ; 

; entry for code 

. dc 
' ' dc • 

• dc 
•. . dc : 

dc 
' dc 
dc 
. dc 



if SAMPLE RATE PAIR— SAMPLE 16K AND 24K 



f I 123.8 
: : :28.8 



BITRATE 56 . 
BITRATE"56.. 
OUTM56 16 
OUTB56~16 , 
BITRATE SS 
BITRATE~56 
OUTO56 16 . 

ouTBse^ifi 
i rate_h: 

BITRATE 64 ~ 
BITRATE~64 
OX7TM64 16 
OUTB64~16 
BITRATE 64 
BITRATE~64 
OUTW64 16 . 
0UTB64~16 ; . 

" endif ■' 



endm 



RATE_LO .-framing bit rate of 28 . 8 Kbits 

. ;ISC frame header code for 28.8 Kbits 
;ISC frame header code for 28.8 Kbits 
;nurr. 24 bit wds 28.8 Kbit frame « 14.4 K saxple 
. . . ;num bits 28.8 Kbit frame « 14.4 K sample 
;ISC frame header code for 28.8 Kbits 
;ISC frame header code for 28.8 Kbits 
,-num 24 bit wds 28.8 Kbit frame 3 14.4 K sample 
;num bits 28.8 Kbit frame 9 14.4 K sample 



.-framing bit rate of 28.8 Kbits 
ISC frame header code for 28 . 8 Kbits. 
;ISC frame header code for 28.8 Kbits 
;nuir. 24 bit wds 28.8 Kbit frame $ 14.4 K sample 
;num bits 28.8 Kbit frame ® 14.4 K sample 
;ISG frame header code for 28.8 Kbits- 
,-ISC frame header code for 28.3 Kbits 
;nurr. 24 bit wds 26 . 8 Kbit frame S 14 .4 K sample 
;num bits 28.8 Kbit; frame 9 14.4 K sample 



;define bit allocation bandwidth tables 



BANDWIDTHS.. 
bndwtbl ■ 
; : : !2B.8 



macro 



It SAMPL£.RATE_PAIR-«SAM?LE - i6K_AND_24K 
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low/high a -14400 sampling 



dc . 


USEDSUBBANDS CC 




dc : 


LIMITSUBBANDS 




dc 


USEDSUBBANDS 01 


_16 


dc 


LIMITSUBBANDS . " 




dc 


. USEDSUBBANDS 10 


,16 


dc 


. LIMITSUBBANDS " 




dc . 


USEDSUBBANDS 11 


.16 


dc ■ 


UK ITS UB BANDS ' 




dc 


USEDSUBBANDS CO 


.16 


dc. ; 


. LIMITSUBBANDS ~ 




dc 


US ED SUB BANDS CI 


.16" 


dc; 


: . LIMITSUBBANDS " 




dc • 


■ USEDSUBBANDS 10 


16 


dc ' 


LIMITSUBBANDS " 




dc 


USEDSUBBANDS 11 


16 


dc. , 


LIMITSUBBANDS- " 





KBit/rates low/ high 9 14400 sampling 



dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 

dc 

. dc 
' dc 

dc 
dc 

dc • 

dc 

dc 



: !28.8 
! 128.8 



USEDSUBBANDS 00 16 
LIMITSUBBANDS " - 
USEDSUBBANDS 01 16 
LIMITSUBBANDS ~ 
USEDSUBBANDS 10 16 
LIMITSUBBANDS 
USEDSUBBANDS 11 16 
LIMITSUBBANDS " 

USEDSUBBANDS 00 16 
LIMITSUBBANDS ~ ■ 
USEDSUBBANDS 01 16 
LIMITSUBBANDS " 
USEDSUBBANDS 10 16 
LIMITSUBBANDS 
USEDSUBBANDS 11 16 
LIMITSUBBANDS 

endlf 



rate 



rate 



rate 



rate 



.low code 00: mono" band-width ' ■ 
subbands requiring 1 allocation 

mono band -width . 
subbands requiring l allocation 
mono band -width " 
. subbands requiring l allocation, 

mono band-width ' 
subbands requiring i allocation' 

.high code . 01 : mono band-width : 

subbands requiring i allocation. 

mono band -width 
subbands requiring l allocation' 

mono band-width 
subbands requiring 1 allocation 
mono band- width 
.- subbands. requiring i allocaticr," 



low code 00: mono band -width 

subbands requiring i allocation. 

mono band -width 
subbands requiring 1 allocation 

mono band-width 
subbands requiring 1 allocation 

mono, band -width 
subbands requiring X allocation 

high code 01: mono banc -width 

subbands requiring 1 allocation 

mono band -width 
subbands requiring 1 allocation 

mono band-width 
subbands requiring 1 allocation 

monc band-width 
subbands requiring l allocation 



endm 



/define ancillary, data baud rate table of clock values and byte counts 



BAUDCLK" • 

baudcl* 

; : : :58.6 
; : : : 2 3 . 8 ; 
. dc 
dc. 
- dc 
dc 
■ dc' 
••/dc 
. dc 
' ' dc 



macro 



if SAMFLE_RATE_FA:r-«SAM?LE_16K_AND 24K 



■ M SCCR300 
BYTES3 30 16 
BYTES300~16 
M SCCR1200 : 

srrssi20o 16 

BYTES1200~16 
M SCCR24 00 
. BYTES2400 16' 



; set clock for 30 0 data baud rate 

;tol check of bytecnt $ sample 14.4 

;tcl check of bytecnt ® sample 14.4 

; set clock for 120C data baud rate 

;tol check of bytecnt S sample 14.4 

;tol check' of bytecnt @ sample 14.4 

;-set clock. for 24C0 data baud rate 

;tcl check of bytecnt <S samcle 14.4 
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a:- 
d= 
dc 
dc 
'.dc 
dc 
dc 
dc 
. dc 
dc 
dc 
dc 
dc 
■ f dc 
: dc 
. dc 



! ! 128. 8 
! ! '28 . 8 



BY7ES24C: 16 : 

-.K srrR36o; ' - - . 

BYTES360C 16 
BYTES3600_16 
M SCCR480Q 
BYTES4800 16 
BYTES4800~16 
K SCCR3 84C0 
BYTES384Q0_16 
BYTES 3 84 GC 16 
M SCCR960C" . 
BYTES960.3 16 
BYTES 96 0 0 16; 
M_SCCR19200 
3YTES19200 16 
3YTES192C:_16 

endif . 



;tox cr.eck cf bytecr.r 2 sample 14.4 
;set clock for 36CC data baud rate 
;tol check of bytecnt € sample .14.4 
.;tol check of bytecnt <S sample 14.4 
/set clock for 4800 data baud rate 
;tol check cf bytecnt 4 sample 14.4 
;tcl check cf bytecnt 3 - sample - 14 ."4 
;set clock for 3B4 0C*. data baud rate 
;tol check of . bytecnt <$ sample 14.4 
;tol/check cf bytecnt «. sample 14.4 
;set clock fcr S6C0 data baud rate 
,-tol check of bytecnt ® sample 14.4 
;tol check of bytecnt « sample. 14. 4 
;set clock. for 19200 data baud rate 
;tcl check cf bytecnt fi sample 14.4 
;tcl. check of bytecnt « sample 14.4. 



.'.4; 



:7. 



■ endir. 

; define MICRO decoder Autc Select MUSICAM frame sizes to de terrene if 

; . input data is MUSI CAM frames vs G722 data 

: . what is the framing bit' rate ar.d sampling rate/ . 

AUTOFRAME macro 



autotbl 
; I ! !28.8 
; i ! !28.8 



dc 
dc 
dc 
dc 



126.8 
128.6 



if SAMPL£_RATE_PAI R-«SAMPLE_1 6 K_ANE_24K 



0UTM56_16 
OUTM64 16 
OUTM5 6~L6 
0UTM64~16 

endif ■ 



; 96 words in 28.5 Kbit frame « 14.4 
;96 words in 28.8 Kbit frame d 14.4 



;96 words in 26 
; 96 words in. 28 



Kbit 
Kbit 



frame 3 



14 .4 
14 .4 



KHZ 
KHz 
KHz 
KHZ 



endm 



; end of box_ctl.asm 

*T * ♦***#•*♦******•*« 



list. 
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: |, tc v 1995. copyright Corporate Computer Systems.. Inc.' Ail rights reserved. 
!• \DGCST\dcframe. asm: u_psych parameter for findrms vs checksub ; 

• title PCM data thru XPSYCHO and XCODE' 
; multiple mono channels 

: -h^s -ou-ine receives a buffer of PCM data and builds a stand alone 
; single channel monc frame for multiple mono channe. devices ; 



entry addrefiS 0 f lne input ,PCM : buffer 
rl - address of. the coded frame buffer 



on ex: 



a • destroyed 
'. b - destroyed 

; vO * destroyed 

yl « destroyed 
rC » destroyed . 
1 rl » destroyed 

1 . r4 - destroyed 
; n4 * destroyed 

include 'def. asm' 

section highmisc 
xdef . htonals 
xdef nmasker 

org xhe : 
s t dc f r ame_xhe 

ntonals . ds' ; 1- . 

nmasker ds . - 

. enddof rame_xhe 
endsec 

section ytables 
xdef . rngtbl 

org ■ yhe: 
stdcf rame_ytbl . 



.-number of tonals in tonal structure 
.•number cf maskers :n masker structure 



rngtbl. 



dc 



'"*' ;table for searching for tonals 
';2/3.6/6.12.12.12v'12: 



enddof rame^ytbl 
endsec 



org 



phe: 



dc frame 

• i ; ; dbg 
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■ •y '\ ' •. \ : ,' ' : V> 55-' ' \-'-\V ' . - -'■ ;; \ 

rts iZ^P <top. / i: ! debug if using stored francs buffer 

; " J tr.p • <_xcode_.' . 

;.' . jmp "■■ < — polya_ . 

; I i idbg :* " ; * 

.«**«•*•••••*•**••*•••••••*••***•»•#*+**«***•*«**«•**•**•* 

, *»**•• *'<* .... **•♦••#»*••»**•••*#♦•**••**♦ 

.*•••**•*- Start XPSYCHO ■ *****■♦*••***•***•****♦***•*♦**'.•' 
.#•**•*•*■ •♦*•***•*»••••♦*•••♦•♦***•♦#*♦ 

'.»»*»••••••»*#*»*#****•••••♦*• *• #•**•**••••»*•»♦••»**••*•* 



; Now get the position to read the fft data from 

; This buffer is offset from the polyphase filter to account for the 
;' delay, through the filter.. 





move 
move 
move . 
move V 

'.- move . ■ 


#PCMSIZE-l,mO 

y :<polyst,rC. 

•• Shbuf ,rl 
<rC? -nC 


,-set to a mod buffer - 

; get input pcm buffer address 

; /get" 1 harming output, buffer address 




' jsr 
move 


■ < banning 
y :< linear. mC 


; apply a hanning window 
/restore rO to linear buffer' •■ 




jsr 


< £ m. to - 






. move 
.move.' •. 
move 
jsr 


#fftbuf ,r0 • • 
#fftbuf ,r4 
#power, rl 
<logpow 


-'-/ real ■ part of fft'. ' 
. ; imaginary part cf fft 

; power array '. 

/compute power of fft data 




move 
move 

/ jsr , 


' tpower. rO 
$ SBMaxDb . rl 
<fmdmaxi ■ 


/power array . 
. /maximum in each sub-band fslbi 
; find max power in a sub-band. 




move 

move 

move 

3sr 

move 


#power,rl 
*Tonals,r2 
• #rngtbl,r4 . 
. <findtona: 
r3,X:ntonals . 


' /power array .' 

/tonal .array ' 
' /range table. for .tonal -search ' 
find tonals 

/save number of tcnais 




move 
move 
move 

" jsr 


tpower, rl 
#Tonals.r2 ■ 
#rngtbl,r4 
<zeropove 


■ /power array 

■ tonal array. - ; 
/range table for tonal search 
/zero power around tonals 




move 
move 


#power, rl 
#NoisePwr,r2 . . 
<f indnois 


/power array-:.' 

/address of the noise array 
/find the noise .' 




move 

move . 
• move • 

move 
' jsr 

move ; 


#Maskers. r3 
. .•• #NoisePwr,r2 ■ 
■ ■ #Tonals, rl 
. x:tttonais.xC 
<mergemas 
b, x:nmasker 


/address "of /the masker structure 
/address of the noise array 

■ /address of .the Tonals structure \ 
cf tcnais in Tonals structure 
./merge the maskers 

-'./save # of maskers- • > . 




move" 
move . 

■jsr' . 


*Maskers,rO '• ' . 
. x:nmasker . c 
<f inddbma 


/get ..address, of the Masker structure 
.. /number cf maskers in masker structure 
" "-' * / find the dr. value of. maskers' 
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move 


#Maskers. rC 


jsr ' 


<pruneclo 


move . 


■ #Maskers, r0 


move ■ 


x:nmasker,b 


jsr . - 


<prunequi 


move 


#Maskers,rO 


move,. 


. xinmasker.b 




<prunemas 


move 


#Tonals,r: 


move 


x:ntonals,xb 


move 


. #Alisng,rl . 




<findalis 


move 


b r x.-naius 


move 


#Maskers.r4. 


move 


#GlbMsk/rl 


Osr 


<QCalcGlc 



_pclya_ • 

; polyphase filter Che input data 



move 
move 
move 
jsr ' 
move 



y:<polyst.r0 
#PCMSIZE-l,mO 
#PlAnal,r5 
<polyanal 
y : <linear,m0 



"...•get address cf the Masker structure 
; prune close maskers . "". 

";get address of che Masker structure 
; number of maskers in masker structure 
; prune quiet , maskers - ■ •. 

/get. address of the Masker structure - 
; number of maskers in masker structure 
/prune masked maskers 

, /address of the' Tonal s structure 
;# cf tonals in Tonals structure . 
.-destination buffer address 
/find alising components 



/.get address of the Masker structure 
/address of global masking .threshold 
/calculate global masking" threshold. 



/get polyana start address ■ 

/set' as a mod buffer . 

/set start of the sub -band output buffe 

/poly analyze the data 

/restore to linear ctl 



develop the scale factors 

initialize the table of scale, factors to minimum amplitude (63 «> c ampl: 



move 
move 

do' 
move 



#SBndSKF.rO 
#63, n4 



;addr of sub-band scale 



:ors 



#NUMSUBBANDS*NPERGROUP, init 00 



n4 , x: (r0 ) * 



/get value to store shared memory 



init 00 



move 
move 
jsr 



KPlAnal.ro 
#SBndSKF,rl 
cf indakf 



/ . develop." the SBits for scale, factors 



move 
move 
:sr 



#SBndSKF,r0 
#SBits,rl 
<pickskf . 



;addr of poly analyzed data 
,-addr of sub-band scale factors 
./find scale factors 



;addr of sub-band scale factors 
;addr cf sub-band sbits 
/pick the best scale factors 



xcode 



.»♦•»*••♦••**«•#•••••••***#*###******♦♦********#**♦***** 

.*•***«•* , ***##•#*♦**#**•**•*•#•*•***«** 

.«•**•*•* Start XCODE '■**#••••*#*••*•••••••••*#••••**■ 

.**«**«** **##••♦*#**»••»•#*#•#•##*•#••# 
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... . ; : .. ;/ :,, . ...v . -57- ■ . ; . ,. . : •; 

determine which method :o use. t= determine -he sub-band maximum values 

move y:u_psych.a ; get use f indrms. asm rtr. parameter, 

. move #.5,xl '. ;if less than .5, use checksub.asm rtn. 

cmp. xl.a ; see if parameter less than .5 

, jlc ' • ■ <_do_checksub ■ ; ; ;. ; if less, use checksub.asm rtn" • 

;use RMS for maximum level for the sub -baud 

: move #PlAnal,rC ;addr of poly analyzed data ".. 

move *SBMaxDb.rl ;addr of sub-band max 

isr . <f indrms' ■ ,;-find max in a subband . 

jmp . <_set_rain_raask ;gc to set minimum masking level 

_do_checksub , 

;se; correct maximum level for the channel 

move; #SBndSKF,rO ;addr of sub-band. scale factors: 

move ItSBMaxDb , rl ;addr of sub- band max 

jsr cchecksub / ;■ ;fir.d max in a subband 

-_set_min_mask 

.-set minimum masking level in each sub-band 

move •"• fcGlbMsk.rO . - ; channel global masking threshold 

move #MinMskDb,rl ^minimum masking per subband. (sib; .. 

jsr <findminm ; find mm masking 

;set minimum masking level in each sub-band: left channel. then right channel 

move. x:nalias.a ; number of aliaser's 

move .#Alisng,rO . .. .. .-aliasing structure 

move #SBMaxDb,rl ;max in each sub-band {sib; 

jsr cfindmaxs .-find the maximum signal 

.-set number of fixed bits required, and the number of available bits for audio 

'jsr . <bitpool 

move xG.,y:f ixbits ;save fixed bit count' 

move xl.y:audbits ;save bit count available for alloc 

,-allocate the bits in' the frame by subband ■ 

move #SBits,rO "/scale factors 

move #MinMskDb,rl ■ . .-minimum masking per -sub-band -(sib V '-■ 

■. ' ■ ' move . #SBMaxDb,r2 .-maximum in each sub-band (sib) 

move #SBPos,r4 , .; sub- band position . 

move ' #SBIndx,r5 :. ; sub-band inaicies- ;. 

jsr <bitalloc .-allocate the bits 

-code the channel; audio frame 

■ . ..jsr ' <codefrarae 

• ". rts •• • • .• : •: .' ... ■ •. • ' ..• 
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\RM: CRC\ge thai .asm 

title ,- 'Get bit allocations' 

This routine "is used to get the bit allocations of each of the sue -bands. 

Zz is from. the ISO standard, 

sub-band 0 - 10. use 4 bits. (11 ♦ 4 - 44 bits) 

sub-band 11 - 22 use 3 bits C12 * 3 » 36 bits) 

sub-band 23 - 26 use 2 bits t 4 * 2 » 8. bits) 

... . (. total * 88. bits) 

on entry .,■ 

. rO -'address of bit allocation array for both left and right channe 

r6 « current offset in the input array 
n6 » base address of the input array ' . 
y:<maxsubs = MAXSuBBANDS at sampling rate and bit rate 
y.sc » shift count of current input word 

■ yrfrmtype -full stereo, . joint stereo or mono- ' ■. 
y:sibound - joint stereo sub -band intensity bound 
x:crcbits » accumulator of bits covered by.CRC-16 routine 

(bit. allocation bits. are accumulated) 

on exit • 

rfi « updated 
y:sc » updated 

■ a - destroyed 
b - destroyed 
xC t « destroyed 
xl • destroyed 
yC • destroyed . 

• ■ . yl ■ destroyed 
rO * destroyed 
rl « destroyed 
r2 "destroyed ■ 
r4 - destroyed- ."' 
. n4 ■ destroyed: 

- include 'def. asm' 

:.: 1DGCST: ••" . , • 

section highmisc 
• xdef ." masktbl; 
. xdef . tbl 

org yhe : " ." ' • : .; 

stgetbal_yhe ■• 

masktbl 



dc 


.. soooooc . . 


; place hclde 


ir in mask, 


table 


dc 


■ • S0C0O01 


;mask table 


for 


.1 bit 


getvalue 


dc "." 


S0O0O03 


;mask table 


fcr 


2 bit 


getvalue 


dc 


' S000OC7 • • • • 


" ,-mask table. 


for 


3 bit 


getvalue 


dc 


• SOOOOOf : 


- ' ,-mask table 


for 


4 .bit 


getvalue 



WO 96/32805 



PCT/US96/04835 







CO 

'■ v . " 59 - . ■, 


dc 


SCOCOlf • 


., ' ,*mask . t 


;; •••.'dc • . ■' 


* SC,0003f 


;mask t 


; ; , dC . 


■ 5uwUU/t - * 


t mask i 


;; dc 


sooooff . : 


;mask t 


; ; dc 


. soooiff- •" 


.'; ;mask \ 


;; , *c • 


S0003ff 


' ;mask I 


;; .. dC . 


'$0007f£/:- 


VmasJc .i 


;'; • ' • dc . 


$000ff f ; 


' ;mask i 


;; •' dC 


SOOlf f f /'■ 


■ ' \ . ;mask 1 


;;' dc 


$003fff • ' 


,. ■/.-■■• ;mask i 


;; dc 


. ,S007ff f ' 


;mask 1 


;; dc ■ 


SOOffff : 


■'■ ;mask i 


; ; ; define data 


size cable 


for the gecvaiue roui 



table for 5' bit gecvaiue 
table for 6 bit gecvaiue 
table for 7 bit gecvaiue. 
table for 8 bit gecvaiue.. = 
table for. 9 bit getvalue 
table for, 10 bit getvalue 
table for-; 11. bit gecvaiue 
table for 12 bit getvalue. 
table for 13 bit getvalue 
table for 14 bit getvalue. 
table for IS bit getvalue 
table for IS bit gecvaiue 



;;cbl\ 



dc • " ' 


; $000000 


dc 


$000001 


dc . 


. $000002 


dc 


. S000004 


dc ; ' . 


$000008 


dc 


... sooooic 


dc 


. $000020 


dc 


S00004C 


dC : 


$000080 


dc ; - 


$000100 


dc 


$000200 


dc 


$000400 


dc 


$000800 


dc 


$001000 


dc ; 


$002000 


dc 


.. $004000 


dc-: ■ 


$008000 



;bits > 
; shift 
; shift 
; shift 
; shift 
; shift.. 
.; shift 
..-shift 
; shift 
; shift 
.-shift 
. ;shif t 
; shift 
;shift 
; shift 
.-shift 
; shift 



o, 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 



place holder 

01 bits 

02 bits 

03 bits ■ 

04 bits • 
.05 bits : 

06 bits 

07 bits 

08 hies- 

09 bics - 

10 bics. 

11 bics 

12 bics 

13 bics 

14 bits, 

15 bits 

16 bits . 



; ; endgetbal_yhe 
; ; endsec 



section highmisc 
xdef skftbl , 
xdef skftbl_l 
xdef : skftbl 2 
xdef skftbl~3. 



org 

stgecbal_xhe 



xhe: 



; address of BAL' s bit table as per Allowed table selected 
skftbl ds 1 ''■]]•■ 

; These tables is the number, of bits used by the scale factor in each, sub -band 
; High sampling races wich higher bic race framing 

skftbl. 1, 



dc 
dc 
dc 
dc 



4 
4 
4 

4. 



; sub -band 0 
; sub -band 1 . 
; sub -band 2 
t sub-band .3 . 
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. dc 


4 


;.sub-band .4 "" 




dc •: • 


4 


; sub-band 5 




...dc 


•4 -. '•: 


*; sub-band 6 




dc 


' 4 -. 


; sub-band 7 . 




dc 


4 


; sub -band 8 . 




dc 


4 . 


. . ; sub-band 9 , 






•"-4 '■ ' 


: sub -band 10 




. • dc ■■ 


'3:" . ~: ■ ■ 


; sub-band' 11, 




. dc 


■ 3 


• ; sub-band 12 




dc 


3 - 


• ; sub -band 13 




■ dc-. ■ 


• 3 '•: 


. ; sub -band 14 




. dc 


: 3- ■ • ' 


.; sub -band 15 




dc 


3 


• ' . ; sub-band 16 




dc . 


3 


; sub -band 17 




■ dc 


■3 


■ . ; sub-band 18 




. dc 


3 ..■ 


'. \ ; sub-band 19 




. .dc: • 


■ 3. : . 


; sub -band 20 




■ .dc 


3 ' 


; sub-band 21 




. dc '; 


• 3v- . 


;sub-bar.d 22 




• dc ' 


' 2- , 


; sub-band 23 




dc • 


2 : : 


; sub-band 24 




dc 


2 


; sub-band 25 




dc • 


2 


; sub -band 26 


end 


cable 3-3, 


.2a 






dc 


2 '. 


; sub -band 27 




dc . 


2 


; sub-band 28 




' dc •• 


2 


: ; sub- band .29 


end 


cable 3-3. 


.2b 




dc 


' 2 


; sub- band 3 0 




dc 


2 


; sub -band 31 



; High sampling, races wich lower bit race framing 
skfcbl_2 

. ; sub-band 0 
; sub- band 1 

; sub-band 2 
; sub-band 3 
; sub-band 4 
; sub-band 5 
; sub-band 6 
; sub-band 7 

; sub-band 8 

; sub- band 9 

; sub- band 10 

; sub-band 11 

... ; sub-band 12 
; sub-band 13 
; sub-band 14 
; sub-band 15 
; sub-band 16 
. ' ; sub-band 17 
;■ ; sub -band 18 " ' 
;sub-band .19 
.; sub-band 20 





dc 


4 




dc 


■4, 




dc 


: 3 




dc 


3 




. dc 


3 




dc 


3 




dc 


3 




dc 


3 


;end 


cable 


3-B.2c 




. dc 


3 




dc 


3 




dc 


3 




dc 


3 


;end 


cable 


3-B.2d 




dc. 


3 




dc 


3 




dc 


3 




dc 


3 




dc 


- - 3 




dc 


.3 




dc 


3 




dc 


. 3 




dc 


3 



SUBSTITUTE SHEET (RULE 26V ^ORIGINAL J| 



WO 96/32805 



FCT/US96/04835 







•61 - ■ 




dc 


3 . ■ 


;sur>-oana 


t± 


dc 


"3 ■ 


; sub -band 


22 


dc ■ 


""•3 


; sub- band 


22 


dc ■ 


. 3 


■; sub -band 


24 


dc . 


••' " 3' '. 


; sub- band 


25 


dc 


•3- ..■ 


; sub -band 


26 


dc 


'■■3 ■ 


■ . ; sub -band 


27 


dC 


3. 


; sub -band 


26 


dc 


:. " 3 \, 


; sub -band 


29: 


dc 


3 • 


; sub- band 


30 


dc 


3 


; sub -band 


31 



; Low sampling rates 
Skftbl 3 



dc • 


■ 4 . . 


. ; sub -band 0 


dc . 


4 


, ; sub-band 1 


■ .dc 


•' 4 


; sub -band 2 


C- 


4 ."• • 




dc 


3 


; sub -band 4 


CC 


■ 3 


; sub-band 5 


■ dc 


3 . 


; sub-band 6 


dc 


■■3 


; sub-band 7 


. dc . 


3 


; sub-band 8 


■ dc 


3 ; 


; sub -band 9 


• dc 


3 


sub-band 10 


••' .dc-- 


2 ; . 


; sub-band li 


. dc 


2 


; sub-band 12 


. dc ' 


■ 2 


; sub-band 13 


dc 


■ 2 


; sub-band 14 


dc , 


2 


; sub -band 15 


dc 


• 2 


; sub -band 16 


dc 


2 


; sub -band 17 


■ " dc 


2 


; sub-band 18 


.dc 


2 


; sub-band 19 


V dc - 


2 


; sub -band 2 C 


.dc 


2 


; sub- band 21 


dc 


2 


- ; sub-band 22 


dc 


2 


; sub -band 23 


dc 


2 


; sub-band 24 


dc 


2 


\; sub -band 25 


dc 


, 2 


' ; sub -band 26 


dc 


2 


; sub-band 27 


• dc 


,2 


; sub -band 28 


; . • dc 


2 . ' : ; 


. ; sub -band 29 


end cable 3-3. 






. dc ' 


,*2 ■ 


; sub-band 30 


dc 




; sub -band 31 



endgetbal_xhe - 

•• endsec'-' .- 'V-. '* ■"- v : * 

. org * phe: / 
.•initialize :" 

;,. a. rl with start "of subband allocation table of bits in. frame per sub-band 
;• b..n0 offset for right channel sub-band bit allocation values: 
; left channel from 0 to (NUMSUBBANDS - 1) 
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•right channel from NUMSU3 BANDS to M3t * NUMSUBBANDS: 
c r3 set "with joint stereo sub -band boundary for sterec 



8 .'(8-31)".. 12 '(12-31) or 16 (16-31) 



Lr. tensity :: 



getbal 



move . 

move 

move 

move. 

move 



xrskftbl.rl 
#masktbl.r2 
# NUMSUBBANDS . nO 
y : < s ibound , r 3 
x:crcbits.r5 ' 



;off9et for right channel : 

;decr stereo intens sub-band ctr 

;get CRC-16 bit. counter 



•toop through the sub-bands extracting the left^and right lif applicable^ . 
::?:V?ocaIicn index values !y:<maxsubs - fixed count of sub-bands framed): 
' V 'or cu- ent sub- band get the number of bits for allocation maex va.ue 
' * and increment address cf. the next sub -band bit count 
" ae- -he bit allocation for the left channel always 

b register isolate the type of frame: full stereo, jcint . stereo or mono 
yc holds the mono frame type code for testing 
y-> holds the joint stereo frame type code for testing 
see ; f the frame type is joint stereo and just m case, move the . 
cur-e*- stereo intensity sub-band boundary counter va.ue f cr testing 
if net" joint stereo, see, if this is a mono frame -type 
if it is noint stereo:'- ^ 

- tes- ** -he boundary counter has reached zero, and ;ust m case i- has, 
*' -estore the left channel bit allocation value to the al register 
2 *f the counter is zero, go to copy left channel into the right channel 
* r; 'i* no-go to extract the- full stereo right channel allocation vaiue 



b. 

c, 
d . 

■' e-. 



h. 



do y : <maxsubs , _getb_4 0 

move x:{rl)+.n4 . . 

; move n4,n2 

move n4 ,n5 

j sr <getvalue . 

move y: (r2+n2) ,xl 

move (r5i +n5 

and xl,a . y :<f rrntype, b 

move al,x: (r0» 

move *>MONO.y0 

move *>JOINT_STEREO. yl 

cmp yl,b r3.a 
ine ■ <_getb_lO . 

ist a x: IrO) .al 

jeq <_g*tb_30 . 

. move !r3 ) - 

jmp <_getb_20 



;get # of bits to read 

;get hi order bit mask index 

,*to accumulate CRC-16 bits . 

; get a left chan bit allocation. 

.•mask for high order one's 

,-accum bits for CRC-16. rtn 

;mask off high order one's 

; & set for frame type compare 

;set left channel 

,-ck for no right channel 

,*ck for intensity sub-band 

; check for stereo intensity 

;if not, see if mono ■ -■ 

; reached bound, restore, left val 

; yes, left val to right val 

;no, deer intens sub-band cr.tr 

; and retreive right chan value, 



-est for a monc type of frame and just in case it is., set al 
fcr insertion in?o the right channel for consistency 
t - : s mono, co to move the right channel value 
"otherwise, fall through to full stereo. 



:o zero. 



_getb_lC 

- ~ ■ . . cmp 

':. jeq 



. ;if mono,, insert 0 for right 
Ifull sterec. extract. the/right channel bit allocation value. - 



y6,b #0,al 
< aetb 30 



aetb 20 



Dsr 



xgetvalue 



,-get a right "".chan- bit alloca; 
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nove 
move 
and 



y: (r2+n2) ,xl ; 
irSl+nS. 
xl,a 



[insert the right channel value <n0 of i set) 
increment for the next sub-band 



lgetb_3Q 



move 
move 



ai.x: <r0+n0> 
(r0) + 



;maslc for high order one's 
.-accurn bits for CRC-lS rtr. 
.•mask off high order one's 



; right channel sub-band alloc 
; incr for. next sub-band . 



■ getb 40 
i ' data in' them. 



clr 

move 

sub 

do . : 

move 

move 



_getb_50 



move, 
rts 



a #>NUMSOTBANDS,b- 

y:<maxsubs,xO 

x0,b 

b._getb_5'0 
a.x: (roTnO) 
a.x: lrO> + . 



r5,x:crcbits 



' • . • : ; current MAXS UB BANDS . 

,-equals unused sub -bands 

right channel 
; left chan & incr for next 

; store updated CRC- 16 bit counter. 
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opt f c. cex, mex 

■ ( c ) . 1 9 9 5 i Copyright Corporate . Computer Systems/ Inc. All rights reserved. 
; \DGCST\getdata. asm: moves to high. P- Memory 

•■'title 'Get the Data' .' 
. . . This routine .'sets the data in the output' buff er . 

. ; on entry ^ ' * - - - ' '• 

r3 - address of left & right channel SubBandlndex array (x memory) 
r2 - address of left & right channel SubBandSKFs array : <x memory ) 
\ rl ■ addr of buffer for a set of left and right channel recovered data 

. (132 samples: one group of 3 samples, 32 subbands,. 2 channels) 
. " ■ y : <maxsubs « MAX SUB BANDS at sampling rate and bit rate 
• yrAllwAdd - address of the proper Allowed table at sample/bit rates. 

' yifrmtype - whether' full stereo, joint stereo or mon frame , 

y-sibound - if joint stereo, sub -band boundary for. stereo intensity 
. shared memory for rsynth . . ' "' 

; on exit 

a » destroyed 

b a destroyed 
; - xO * destroyed 
; '• ' -xl » destroyed ; 
; yo « destroyed . 

• •;'• yi - destroyed . 

'•' rO - destroyed . f 

" '.'- rl * destroyed 

' ; ■ r2 destroyed. 

; • r3 » destroyed 

; ' r4 » destroyed • - 

r5 » destroyed' 

nO « destroyed 

nl » destroyed 

, ; • . n2 ■ destroyed 

- n3 - destroyed 

• •; n4 » destroyed 
;■. nS - destroyed - 

include 'def .asm' 

include \rmicro\ get value .mac' 

section highmisc 



xdef 
xdef 
xdef 
xdef 
xdef 

org. 
stgetdata_xhe 

NBits ' . 



NBits 

CC " 
DO 

packmax 
packrpl 

xhe : . . 



dc 


0 


dc 


2 


dc 


3 


dc 


3 


dc 


4 



.•position » 0, 
; position ■ 1 
; position » 2. 
; position ■ - 3; 
,* position « 4 



place holder 
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dd; 





4'- 


dc 




dc 


• ■ 6 " ' 


dc 


7 ■• 


dc 


■ ■ a ■ . ■ 


dc 


9 . . 


dc 


. 10 


dc 


"" 11 . : 


dc 


12 


dc " 


13 • • 


dc ; 


' 14 


dc 


.15 


dc - 


.16 


dc'.. 


: 0 ' 


dc 


: 5555555 


dc . 


5666666 


dc 


5492492 


dc : 


. S71C71C 


dc 


... 5444444 


dc". 


S421084 


dc 


5410410 


dc 


5408102 


dc 


5404040 


dc 


5402010 


dc 


5401004 


dc 


5400801 


dc 


5400400 


dc 


5400200 


dc 


5400100 


dc : 


$400080 


dc ; 


S4C0040 


<3c 


5000000 


dc- 


ScOOOOO 


dc " 


; scooooo 


dc' ■ 


SaOOOOO 


dc 


. ScOOOOO 


dc ' 


': S900000 


dc 


5860000 


dc 


5840000 


dc 


: SS20000 


dc..'..- 


5810000 


dc. 


. $808000 



dc $804000 - 

dc $802000 

dc 5801000 

dc 5800800 

dc .5800400 ' 

dc ; $800200 

dc : 5800100 

. ..•check for bit errors in packed 
STANDARD ISO 
; position : . max replacement 
value valuer 

.' :'.i-"-"-.---' 26 ■ ■ • .. i3 ■ 

2 ■ 124.;: . .. 62 



•65- ." ■ ' • - 

. ; posit icr. .-*=■ 5 

.•position ■■" 6 : 

.•position- ■ 7 

'.•position. » 8 • 

- . position = 9 

.-position • 10 

' ;position - 11 ' 

.•position . » .12 

.•position »- 13 

.•position » 14 

.•position » 15 

.•position - 16 

; pos i t ion » 17 



.•position 0. place holder 

; 4. 0/(3.0*2.01 position 1 */ 

.-8.0/(5.0*2.0) position . 2 */ . 

; 8. '0/(7. 0*2.0) position 3 ♦/ 

•16.0/19.0*2.0) position 4 */ . 

; 16.0/(15.0*2.0) position 5 */ 

,* 32.0/(31:0*2.01 position 6 */ 

; 64.0/(63.0*2.0) position 7 . */. 

; 128.0/(127.0*2.0) position 8 *\ 

; 256.0/(255.0*2.0) position 9 *> 

; 512.0/(511.0*2.0) position 10 •/ 

; 1024 .0/(1023.0*2.0) position 11 */ 

; 2048.0/(2047.0*2.0) position 12 */ 

; 4096.0/(4095.0*2.0) position 13 */ 

; 8192.0/(8191.0*2.0) position 14 */ 

; 16384.0/(16383.0*2.0) position 15 */ 

; 32768 .0/(32767.0*2 .0) position 16 •/ 

; 65536.0/(65535.0*2.0) position 17 */ 



; position 0, place holder 
; position i. .5000000-1.0 */ 
; position 2/ .5000000-1.0 */ 
; position 3, .2500000-1.0 */ 
; position 4, .5000000-1.0 */ 
; position 5. .1250000-1.0 */ . 
; position 6/ .0625000-1.0 */ 
; position 7... 0312500-1.0 */ 
; position 8. .0015625-1.0 */ 
; position 9. .0007812^1.0 */ 
; position 10, .0003906-1.0 */ 
; position 11, .0001953-1.0 .*/ 
; position 12, .0000976-1.0 */ 
^position 13, .0000486-1.0 .*/ 
; position 14, .0000244-1.0 */ 
; position 15, .0000122-1.0.*/ 
; position 16. .0000.061-1.0 */ 
;: position 17, .0000030-1.0 */ 

positions: 1. 2, 3 and 4 

CCS COMPRESSED ' 
: / max replacement 
value value 

: • 14 . • 7 

• 62 ... 31 
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3' ..' 


- - - • - - - - 


. 4 • • 


728 . ' 364 . * 


packmax dc 


1 ••. 


packrpl. dc : . 


1 . 


endge t da t a_xhe 




endsec . 




section 


lowmisc 


xdef 


av 


. xdef ' 


bV 


• • ' xdef 


cv 


• • xdef '• 


bandcnt 


. . xdef 


block , 


xaet 


svereg 


xdef .. 


dvalue, cvalue 


■ , . - 

org 


yil: 


stgetdata_yli 




av ds 


1 


bv ds 


1 


cv ds 


.1 


bandcnt ds 


1 


block ds 


l- ;• . 


svereg ds 


i 


dvalue ds 


i' 


cvalue ds 


i. . 


endgetdata_yli 




endsec 




section 


highmisc 


xdef 


ivdata 


xdef 


ASMDadd 


xdef 


SKFaddr 


xdef 


INXaddr 


xdef 


AllwAdd 


.- xdef ■ 


Allow 


xdef 


ge t dat aN4 Save 


xdef 


bereich 


' xdef 


shftbl ' ■ 


org " 


* yhe : -. 


s t ge t da t a_y he 




ivdata ds • 


1 •' : - • • 


ASMDadd ds 


1 


SKFaddr ds 


1 . • "' •• 


INXaddr ds 


1 


AllwAdd ds 




Allow ds - 


1- • 


getdataN4 Save 


ds ; ' i 


■' include 


' . . \ common \oe: 


shftbl : • 




-.- dc ; 


$000000 "■' 



-66- 
438 



219 



;A value af ter uppacking 

;B value after uppacJcing 

;C value after uppacking 

;incr sub -band for stereo intensity 

; block no 0:0-3, 1:4-7, 2:8-11 : 

; save a register value 

; hold current DValue : . ; ■ • 

;hold current Cvalue 



; left -& right channel recovered data 

;A start addr shared mem for samples . 

,-starting addr for SKF' s 

; starting addr for SBIndx's 

;save addr of applicable Allowed tabls 

; current address in Allowed for sb 



■bits « 0. place hoider 
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dc . ' 


- S4 00000, . 


• jbics 


■ 


1 


shift 


left 


23 


bits 


dc 


.."■S200000 


;bits 


m 


2 


shift 


left 


22 


bits. 


dc ■ 


S100000 


: ;bits. 


■ .. 


3, 


shift 


left 


21 


bits. 


dc 


$080000 .. 


;bits 




4, 


shift 


left. 


20 


bits 


dc , 


$040000 . 


;bits 


a 


5/ 


shift 


left 


19 


bits 


dc : . 


$020000 . 


' ,;bits 


s . 


6, 


shift 


left 


18 


bits 


dc 


. 5010000/ 


;bits 


s 


7, 


; shift 


left. 


17 


bits 


dc , 


- $008000 ... 


• ;bits 




"s> 


shift 


left 


16 


bits. : 


dc 


' $004000 : 


• ;bits 




9 .,. 


shift 


left 


15 


bits 


dc 


$002000 


;bits 




10, 


shift' 


left 


14 


'bits 


dc 


$001000 


;bits 


9 ' 


ii,: 


■shift 


left 


13 


bits 


dc . 


: $000800 


.. ;bits 




12.: 


shift 


left 


12 


bits 


dc 


$000400 '.' 


' ;bits 




13, 


shift 


left 


11' 


. bits 


dc 


, • $000200 


.• ;bits 


m 


14/ 


shift 


left 


10 


bits 


dc : 


S000100 


. ..• ;bits 


m 


15, 


shift 


left 


09 


bits 


dc ; 


S00008Q 


• ,-bits 




16. 


shift 


left 


08 


bits 



endge t da t a_yhe 
endsec 



org 



get data 



move 
move 
move 



phe: 

r2,y:SKFaddr 
.r3,y:INXaddr 
ri,y:ASMDadd 



move #0,r0 



;save start address 
;save start address 
; save start addr ivquant values 

; start ' group number 



;loop through the 12 groups of 3. samples per sub-band per channel 
; advancing through 36 samples 

; set-up for the group: . . . 

1. set starting address for inverse quantized values : 
; 2. reset the starting address of the Allowed sub -band bits 
\ 3. determine the SKF factor grouping 

; 4. set up for joint stereo sub-band intensity boundary checking 
do 



#Nt3MPERSUBBAND/_getd_90 
set up for next. group of samples. 



move 
move 
move 
move 
move 
move. 



y:ASMDadd,rl 
rl,y :ivdata 
y:INXaddr,r3 
y:SKFaddr,r2 
y :AllwAdd, r5 
r5,y: Allow 



; reset start recover data addr 
;init recovered data curr addr 
; reset SBIndx ptr . 
; reset start SKF address 
; reset address of allowed 
;and save . 



; set which block of SKFs (scale factor indices) 

; . - o for group of 4 samples 0-3. ... 

1. for group of 4 samples 4-7 

• . 2 for group of 4 samples 8-11 

move r0,x0 

move . #>4, b . :'■ 

cmp . x0,b #c,yi \ ■ 
jgt "" <_getd_06 -/ .'.',*Y • 

' . move #>8 ,b . 

•cmp ; xc ,b ;.. ; ; #>i;yi 



;curr group to test 

; block [01 groups ,0 - 3 

; block [11 groups 4. - i 
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move 



<_getd_0S 
#>2,yl 



; block [2] groups B 



_getd_06 



/increment ; the group number . 
.save which block EC -1 cr 21 



, move . •• irQ)~ 
' . • . move yl,y:<block 

; set -up for. roint stereo sub-band intensity control 

move y:<sibound,nO .-joint stereo intensity sub-band 

move r.o,y:<bandcnt .-bound sub -band decremented cntr • • ^ 

bclr #J0INT_at_S3_B0UND.y:<ctlf lgs ; clear reached intensity, sue- nana 

.-process this collection of three samples per sub-band per channel 

'■■-■.'do' #NUMSUBBANDS,^getd_8C 



■ - move 
. mcve 
■.bclr.' 
move 


y : ivdata , r 1 
" *C,n3 

#LEFT_vs_RI GKT 
. y:<block,n2 . 


\ y : <ctlf igs 


; left .channel block' 1st. - 
;left channel SBZndx values 
;inidcate working or., left chan 
; which block cf SKFs 


.-process left 


channel and then right channel 


for. current' sub-band .; 


■ do. ;: 


*NUM CHANNELS, _getd_75 




move . 
move 
move 
. move 
move 
mcve 


HNUM5U3 BANDS , nl 
x: <r3+n3) ,n5 
y: Allow, rS 
. *DD,r4 

x: ir5-«-n5i ,n5 
r.S.a 


,* spaced by number of subbands 

; SubBandlndex iSubBand] 

;get the address of Allowed [SB] 

;address of the P table 

;get position for the subband 

;save the position 


: tst 
. jeq. ; 


a : . nS,n4 
<_getd_63 




; check position »» 0 AND : 

; set position for DValue fetch 

;not transmitted 


move 
move 
move • 
. . move 
move 


••' ' #CC.r5 . 

x: ir4+n4> ,xl 
x: irS+n5) . xO 
xl,y:<dvalue 
xO,y:<cvalue 




. .-address of the C table 
'.. . ; DValue 
; ;CValue. • 
; save DValue 

.•save CValue . * 


move 
move 
move; 


#NBits,r5 : 
. *>i,yi • 
x: (r5+n5) ,n4 




; address of NBits array 

;to test for packed pos 1 below 

;nbits 


move 
move 


x: (r2+n2> ,n5 
' #bereich,r5 




;SKF Index ISubBand] [block]; 
;SKF table address . . 



.-now, if doing the 

, otherwise ^ check ^3"" ** e ^.b aa<i intensity boundary reached, 
:if ngr.t channel .3=>int stereo sue excra cted for the left channel 

Utherv'se%£ra1t"h^ for inverse quanting 



;se: 



«,._—■„ s.R'GF- v<ctlflas. : getd_10 ;clear if.dctng sr. left char. . 
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_getd_i: 



a. set up for extracang. the data values - ^ - . 

h.test the position for packed types ^positions , . 2 , 3 cr. 4) 



move ; 
move 
. move 
move 
crop 

■ jeq. ; 

, cmp" 
'jeq / 
ctr.p 

: jeq 

CTT.p 

■ jne . 



#tbl,r4 : " 

n4.n0/ 

y :<sc, b 

y :<curwd/yO 

yl,a *>2,yl 

< getd 20 
yl.a ~ #>4,yl 

< getd 30 
yl.a ~ #>3,yl 

• < getd 40 
yl,a " 
<_getd_12 



; get .shift table address. 

; save nbits . 

;get the shift count .. 

•get current frame word 

; check position »• 1 

•handle pos 1 with 3 packed values 

.•check position »» 2 " .'. 

.•handle pos 2 with 3 packed values 

; check position »■ 4 

;hahdie pos 4 with; 3 packed values 

;check position «« 3 , and if. not, 

.•handle all other pos as unpacked 



•; for position 3 : , ' ■ ■ ■ ■ '. 

i' compressed mode/ handle allocation as a packed value 
; " otherwise, handle as ZSO standard unpackea set cf j va.ues. 

: jset #D£COMPRESS_?ACKED,y : <ctlf Igs , _getd_35 .. 

. _getd_12 •; • • '/'. 

-not position 1, 2 or. 4 so just a regular input of 3 adjacent data values 
move y: (r4*n4) .xC : ;get shift left multiplier per bit 

; extract the 1st value and save' it in y:<av . ' 
/mpy x0.y0,a n4.xl . 



cnt 



sub . xl.b ' a0.y:<curwd 
' .move . b,y :<sc 
; let's try a macro 

• jge ■ <_ getd_16 

getnexiword 10Tl5 



;shift extracted bits into al with 

newly shifted curwd in aC 
; & save passed numb bits required 
•see if next. word need to complete 
; & save newly shifted curwd 
.•save new shift count - 



va.ue 



getd 16 ' ' 
" . ~ move al,y:<av .■ 

; extract the. 2nd value and save it 

move y:<curwd.y0 
move y: (r4+n4> .x: 
. mpy xQ,yC,a n4,xl 

. sub ; xl.b a0,y:<curwd 
move- ..- b.y:<se 
; let ' s try a macro 



; save is: 

in"y:<bv. 



for inverse quant 



,-get current frame word 
•get shift left multiplier per bit 
•shift extracted bits, into al with 
• . newly shifted curwd in aO 
; St save passed numb bits required 
•see if ' next word need to complete 
; & save newly shifted curwd 
, ; save new shift count 



vaiue 
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jgs . >_3etd_i8 

ge:nex:word 20.25 



getd_18 " 

"" move al.y:<bv ,-save :2nd foz 

extract the 3rd value and save it in yi<cv 



inverse quant 



move 
move, 
mpy 



sub 



move 
2 m P- 



y:<curwd.y0 
y : (r4+n4) , xO 
xO.yO.a n4,xl 



xl,b 



aO , y: <curwd 



o,y:<sc 
<getnextword 

ai,y:<cv 
<_getd_5C 



,-get current.' frame word".'*'. 

;get shift left multiplier per bit cnt 

; shift extracted bits into al with 

; . newly shifted curwd in aO 

; & save passed numb bits required 

;see if next word need; to complete value 

; & save newly shifted curwd 

; save new shift count 

vy«s,; get rest from next i/p frame word 

; save 3rd for inverse quant 
;go to do inverse quantizing 



Pos 1: Three adjacent data values are packed into 5 bits. 
Each of the data values are only 2 bits wide. 

packed_value - valueO * 9— valuel * 3 » value2 

packed_value -3 * i value 0/ * 3 + valuel) ♦ value2 



getd_2C 



move . . #>2S ,x0 
move #>13.xl- 
move #MASiCtf?ACK3 , n4 



; ISO maximum packed value 
; ISO replacement value 
; unpack get value mask 



if compressed., switch to compressed mask 



move 
move 
move 



* D£ COMPRES S_ PACKED . y : c ct 1 f Igs . _ge t d_2 : 



getd_21 



move 
move 
move 
move 
move 
move 
move 
move- 
move 
move 
move 
move 



#>14 .x0 
#>7,Xl. 

#MASKUPACK3X,n4 



n4 ,y : cav 

#36, n4 

n4 ,y : <bv .. 

#9,n4 

n4,y :<cv 

#12. n4 , 

n4, y :<crcstrt 

#3,n4 - 

n4,y:<svereg 

#3,n4 

n4 , y : <not appl 
#5,n4. . • 



/CCS compression maximum packed value 
.-CCS compression replacement value 
/compressed unpack getvaiue. mask 



?save in y:<avalue for hew 
; unpack ■ initial -divisor... 
.-save in y*.<bvalue for how 
.-unpack .initial multiplier 
;save in y:<cvalue for now 
/unpack second divisor : 
,-save in y:<crcstrt for now 
.•unpack second multiplier . 
/save in y:<svereg; for how 
/unpack loop counter . 
/save in y:<not_appl for now 
/change. to packed values ncit 



Lf compressed, switch to compressed nbits 



tt DECOKPRES S_PACKED , y : < c 1 1 f 1 g s , _get d_2 2 y 

tt4 ( n4, /change -to compress packed values. 



„getd_22 
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Pos 2 i Three adjacent data values are packed into 7 bits, 
Each of the data values are only 3 bits wide. 

packed_value ■ valueO ♦ 25 ♦ vaiuel * 5 ^ value 2 ' : 
" ■ • : ' •' or • 
. . pa eke devalue ■ 5 * (valueO * 5 V value! ) + value2 



_getd_30 



move. #>12.4,x0 
move #>€2,xl 
move #MASKUPACK5 . n4 



; ISC maximum packed value 
;ISO replacement value 
.-unpack getvalue mask 



switch to compressed mask 



}cir 
move 
move 
move 



^DECOMPRESS PACKED, y: <ct If Igs , getd 31 
#>62,x0 ~ — " 

#>31,xl 

#MASKUPACK5X.n4 



CCS compression maximum packed vaiu 
CCS compression replacement value 
.•compressed unpack getvalue mask. 



_getd_3 2 



move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
move 



n4 , y : <av 
#200, n4 
n4 , y : <bv : 
#25, n4 . 
n4,y:<cv 
#40, n4 

n4 ,y :<crcstrt 
#5,n4 

n4 ,y :<svereg 
#4.n4 

n4,y:<not appl 
#7,n4 



;save in y:<avaliie for now 
/unpack initial, divisor . 
;save in y:<bvalue for now 
;unpack initial multiplier 
;save in y:<cvalue for now 
; unpack second divisor 
;save in y:< crest rt, for now 
.•unpack second multiplier 
;save in ytcsvereg for now 
.-unpack loop counter . ' 
;save in y:<not_appl for now 
; change to packed values obits 



if compressed, switch, to compressed nb its. 



jC.r. 
move 



_getd_32 



jmp 



,#DECOMPRE£S_PACKED , y : < ct 1 f 1 gs , _ge t d_3 2 

#6,n4 ,-change to compress packed values nb: 



c^getd^S 



Compressed pos 3 : 

Three adjacent data values are packed into 8 bits. 
Each, of the data values are only .3 bits wide. 

packed_value - value 0 v 64 * vaiuel * 8 * value2 



packed_value » 8 * (valueO * 8 * valueii ♦ value2 



_getd_35 



move 


#>438,x0 


move - 


#>219,xl ••• 


move .. 


#MASKUPACKSX,n4 


move . 


n4 , y :<av 


move 


•• #200. n4 


move 


• ti4 , y : <bv ' ; 


move 


'■#25. n4 


move 


H4 . y ;<CV i 



;CCS' compression maximum packed value 
; CCS compression replacement value 
.-.unpack getvalue mask 
;save;in.y:<avalue for now 
.-unpack initial divisor 
.save ir. y:<bvalue fcr r.ow 
..•unpack initial multiplier 
;save in y : <cvalue fcr now 
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.unpacjc second divisor 

; save in y:<crcstrt for now 

; unpack second multiplier 

;save in y:<svereg for now 

; unpack loop counter 

;save in y:<not_appl for now.-, : 

; change to packed values nbits 



Pos 4; Three adjacent data values are packed into 10. bits. 
-• '/.. Each cf the data values are only 4 bits wide. 

packed value- valueO * 61 * valuel * 9 — value2 

. packed_value - 9 •.. (valued * $ * ..valuel) * value2 



move 


#40. nV 


move 


n4 , y : <crcstrt 


move 


#5,n4 


move. 


n4, y : <svereg 


move 


#4,n4 


move 


n4.y:<not_appl 


move 


#8,n4 


jmp 


<_getd_4 5 ; 



_getd_4 0 



move [ #>728, xO 

move #>364,xl 

move #MASKOPACK9 , n4 

move n4, y:<av 

move. #1296, n4 

move n4 , y : cbv 

move #81 ,n4 

move . n4/y:<cv 

move #144 ,n4 

move n4 , y : <crcstrt . " 

move.. #9,n4 

move n4 , y : < svereg 

move #5, n4 

move n4 , y : <not_appl 

move #IC,n4. 
nop . 



; ISO maximum packed value 
;ISO replacement value r 
; unpack getvalue mask 
;save in y:<avalue for now 
; unpack initial divisor 
; save in y : <bvalue for now 
; unpack initial multiplier 
Vsave in y:<cvalue for now 
; unpack second divisor 
;save in y:<crcstrt for now 
; unpack second multiplier 
;save in y:<svereg for now 
; unpack loop counter 
,-save in y:<not_appl for now 
,-change to packed values nbits. 



.-handle the data value extraction from the frame and unpack for 
; either position 1. 2, 3 ( if compressed) or 4 



_getd_45 



move 
move 
move 

. jclr. 
move 



xO , x:packmax 
xl.x:packrpl 
y : tr4*n4> ,x0 



; save position max packed value 
,-save position replacement value. 
;get shift left' multiplier per bit cnz 



_getd_4€ 



mpy 



-sub . 

move 
jslt 

move 
and ' ' 
move 



#DECOMPRESS PACKED, y : <ctlf Igs , _getd_4 6 
n4 I y:getdataN4Save ; save the bit field size 

xCyO, a n4 ,xl 

a0,y:<curwd 



xl ,.b 



b.y:<sc 
<getnextword 

y:<av,xl 
xl.a 

■ al ; a" . 



; shift extracted bits into al with ', 
; . newly shifted curwd in ad 
; & save passed numb bits required . 
; see if next word need to complete value 
; & save newly shifted curwd 
;save new shift count 

;yes, get rest from next i/p frame word 

; unpack getvalue mask 
;mask of f high. order one's 
; clean up 



; test fcr a. possible bii 
;maximuT. tacked value 



error that might , have caused a value, above the 
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ri£ above maximum, replace with the middle value 



move 
cmp . 
jle 
move 



x:packmax,xl 
xl,a . 
<_getd_47. 
xTpackrpl, a 



; ;get .poisition max packed dvaiue 
; compare retrieved value to max 
;if net above max- value, continue 
; since above, replace value 



_getd_47 



jelr 
move 
move 

jsr. 



#DECOMPRESS_PACKED. y : < ct 1 f lgs , _get d_4 8 

ygetdataN4Save. r4 .-restore the bit field size 

a n4 ;set compressed value for table look up 

<dcompval • ;get the decompressed value forunpack 



_getd_48 



move 



<unpaclc 
nO ,n4 



■ ;get 3 parts 
* restore nbits 



;now let's inverse quantize the 3 samples 

getd 50 

" . ■ ~ move #shftbl,r4 

move y:<av # y0 

move y: <r4*n4) ,yl 

tfr . ' yl.b ■ 

move y :. £r5+n5) , bO 



y : <dvalue,xl 

y: <cvalue,x0 

b0,y0 

bl.yl 
y :<bv,y0 

a,x: (rli.+nl. 



b0,y0 

bl,yi 
y:<cv,y0 



i 1st 


value: 


mpy 


y0,yl,a 


move , 


a0,a . 


add 


xl,a ' 


move 


ai,y0 


mpy 


xG,yO,a 


move 


a , yl 


mpyr 


y0,yi,a 


asl 


■ a 



;ivquanti 2nd value: 

mpy . yO,yl,a 



move 
add 
move 
mpy 

move 
mpyr 

asl - 



a0,a 
xl , a 
al.yO 
xO,yC, a 

a,yl 
yo , yl , a 



;to left justify in ivquanti 
; save A value 
;get left shift value 
;save left shift in bl 
;get C factor 



;ist value: left justify bits 

; & set DValue . 

;move xslt to correct register 

;Y + D -. 

; 4 set CValue : 

; forget sign extension 

;C * (Y f D) . 

; . & set up C factor 

;rnd scale factor * C * <Y 
; & reget left shift value 
;mult by 2 again 
; & get B value 



;2nd value: left justify bits . 
; & store 1st; data value 
;move rslt co correct register 

;Y - D 'v.'-'. 

; forget sign extension . \ 

;C * (Y - D) 

; & reget . C factor . 

; md scale factor * C * .(Y + D) 
; & reget left shift value. 
;mult by 2 again 
.;. get C value 



;ivcruanti 3rd value: 

■mpy/ - . y0,yl, a 



a,x: (rl)*nl 



; 3rd value: left justify, bits 
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move 
add 
move 
mpy 

move 
mpyr , 

asl 

move 
jmp 



aO.a 
xl.a 
al.yO 
xO,yD,a 

a.yl 
y 0 . yl , a 



bO,yO 

#>i,yi 
y:<bandcnt,b 



a,x: :rr) +hl 
<_getd_7,0 



.'; & score" 2nd data . value . 

;move rslt to correct register 

;Y * D : • : ■ 

; forget sign extension 

; C * (Y + D) 
. ; & reget C factor \ 

;rnd scale factor * C * <Y * d; 

; & setup for intensity bouhdar 

;mult by 2 again, & set up 

; to test. for intensity bounda 
; store 3rd. data value . 
;try next channel 



All the 3 adjacent values in the sub- band are 



_getd_60 



clr . 

move 
rep 



y : <bandcnt ,b 



*>i.yi" 

&NP ERG ROUP 

a,x: trl) +nl 



; output 6 value/ k setup 

; to test for intensity bounda 

; setup for intensity boundary 



We have just finished the current channel -. ; - 
' and ^f we just did the left, set up for the right channel ■ 
1 i* just did right channel, check for joint stereo and the 

! < <™lt n i%^ set-up tot the next sub-band, 

li rTght cSaSnel joint stereo sub -band intensity boundary reached, 

io^r^rVc^eSt tnfinSnSt^boundar^ sub- band counter 
: ~ before the go set-up for the. next sub-band. 



-getd_70 . £rt vs RIC3HT.y:cctlflgs,.getd - 72 ;if did left, go set-up right 

c } r « to tot FRAMING v • <ct If Igs , getd 72 ^continue if not ^oinc 
\ Het ; . SSl^a^ ccr -^ nue 

sub yl , b :not r< 

move bl,y;bandcnt 

ictt < getd 72 

- blet .*JOINTlat„SB.BOUND,y:<ctlflgs 



$*=w%*_'-. ' - - ' 

;not reached so decrement ctr 
; and save for next, sub -band 
;if not reached, continue, 
; if reached, set indicator ■ ■ 



; ; after the left channel, : set-up to do the right : channel 
_getd_72 



move # NUMSUB BANDS # N PERGROUP , hi 

move v*ivdata,rl- 

move .#;NUMSUBBANI)S*NPERGROUP,a 

move y:<block.xO ; 

add xO,a tNUMSUBBANDS , n3 

bset #LEFT_vs_RIGHT , y : <ct 1 figs 
move lrl)*nl .. 

.move al,n2 



;adj ; to right channel fields: 
; get current start address 
;move to SKFs for right channex 
i-get current block offset 
; add right chan offset,, set : : 
; AND set adj. tc right SB Indx 
; indicate now doint right 
; adjust rl to right rec data 
.•offset register 2 -•■ 



• r..tSW. SBlndx^rray ^er J^J^^ WV-ind. I 3rd SKFs 
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move #>i ,.x0 ■: 

move.. y:ivdata,a 
add ; xO,a (r3i* 

move. a,y:ivdiata . 
move . . #>I6,xO 

move y: Allow, a 

add xO.a #3,n2 

move a, y: Allow 
move . (r2 ) +n2 



samps 



;incr left and righr rcvd 
.•address prev sub-band 

. ;.adj next sub -band, incr SBIndx 
;save new addr next sub-band 
;adj Allow ptr to next sub-band 

; ; get current Allow address 
;adj Allow ptr, ad j SKFs by 3 
;save Allowed for next sub-band 
; next sub-band SKFs addr 



; We have just finished a group of 3 samples per sub-band per channel 
and we must send these value to the polysyn thesis dsp 



move 
bclr 
jsr 
move 



_getd_9G 



bclr 
rts 



rO,y:<svereg 
#0 , y :<not_appl 
<synth r 
y : csvereg, rC 



#0 , y : <not_appl . 



;save the key register 
;clear tested bit if not. appl 
;synth this group of values 
; restore the *ey register 



; clear. tested bit if not applic 
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• ope ■'■ fc.mex ; *\* 

(c) 1995. Copyright Corporate Computer Systems, Inc. All rights reserved. 
\DGCST\rsdecl 6. asm: decoder Reed. Solomon decoder 

'title 'RS Codec 64714 decoding program' 

• include ,'box_ct 1. asm' 

include ' . . \ common \ioequ. asm* • '.' 
" include ' rstest .asm ' 



; this program -will decode data in the input buffer according 

; a decode profile with format as follow; 

* parity byte, message byte, repetition times — first block 

; parity, byte , , message byte, repetition times -- .2nd block 



parity byte, message byte, repetition times, 0 
the output data will be placed at ourput buffer . 



last block 



section 

xdef 

xdef 

xdef . 

xdef 

xdef 

xdef 

xdef 

xdef 

xdef 



highmisc 
pbyte 
.mbyte ';' 
cbyte 
dbyte ■ 
. inbyte 
mapbyte 
RsR3Tmp 
RsLpCnt 
RsLpCntl 



org 


yhe : 




strdeci6_l_yhe 






pbyte . 


ds 




mbyte ' 


ds ■ . . 




cbyte 


ds 


i. 


dbyte . 


ds 


' i 


inbyte 


. ds 




mapbyte . 


ds 




RsR3Tmp 


ds 


■ ■ i 


RsLpCnt 


■ds.. 




RsLpCntl 


ds : ' 


■" ■ i. 



endrdecl6_l_yhe 
endsec . 

'.• section' 
: xdef' • 
xdef 



hiahmisc 
PROFl 

CodeMinLen 



; parity byte 

; message byte 

; codeword byte 

; delay byte 

; insert zero byte 

;mess ♦ pari byte 

;tmp store r3 

;Rs Loop replacement 

; Rs Loop rep 1 ac emen t 



formula that cal the legency delay 
(P)parity, (M) message , delay, repetition 
delay 



; org 
,strdecl6. 2 yhe 
PROFl 

dc. 



(16* (P+M) 
yhe : 



P*P.. 



4*P +73) ,/ 6 * 1 



i€,i29,: 



;RS profile 
;RS decode . 
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dc. • 
dc . 
dc • 

CodeMinLen " 
dc 

dc ' 
endrdecl6_2_yhe 

endsec 



."0,0. c 
0.0,0,0 
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1,6,6,8,10,14,18,24, 30. 38,46 
56, 66,78, 90,104,118 . - 



;R£ code min length- per block 
;t«0,l,2, , . ,10 
;t«ll, 12, . ..,16. . 



; RS decode routine. 



This code is for RS decoder chip that the input is always enabled 
put output wi.l be enaoied when we have the output coming 



on entry 

XX- 
. r3 
■r6 . 

on exit 
rl 
r2 
r3 • 
r4 
r5 
r6 

a 

b ■ 
xO 

XI 

yo 



output ptr in X SPACE 

input profile ptr in Y SPACE 

input data ptr in X SPACE . 



destroyed 
destroyed 
destroyed 
destroyed 
destroyed 
destroyed 

destroyed 
destroyed 
destroyed 
destroyed 
destroyed 
destroyed 



■ or 9 

rsdecie 

; initial here 



pli: 



move 
move 
move 
move 
move 
move 
move 

move 
move 
move 
move 



"_Bentry 



be: 



#-l,m6 * 
#0,n6 . " 
#-l.ml . 
#3-1, m2 
#-l,m5 
#2.r2 - 
• #0,r5 

#>24,x0 ■ 
x0,y:rssc 
x:(r6)+,x0 ■ 
x0 , y : rscurwd 



*l,X:c<M PCT 



;reset reg r6 ; to linear 
; reset n6 to .0 

;mod 3 2,l,o' - 

; set to first byte 
word count 



;set for rsgetvalues 



rturr. cr. the bit elk' 
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ir.ovep uSOBCS . x : <<M_BCR. 
SOFTWARE RESET 



,*sec low to " :s " : 
; sec y : for 8 wai 



sleet 
state . . . 



clr . 



izero 

move al,y:RSReg8 ;rese; in case 

; wait fcr : some clock tc pass away for the completeness cf reset 
U4 0CY reset ch : - 



do. 
nop 



resetcn 



;dec 



nessage 


length and parity length. 


from' prof iie . 


clr ".' 


. a ; y: (r3 i *..xl\* 


; parity 


move 


a,y: inbyte : 


;set no insert byte 


move 


. xi, yrpbyte " 




move 


y : (r3 / al . 




move ■ 


al , y : mbyte 


/message length 


whether 


add 2ero is needed 




move 


y :pbyte, al ' . 


;get parity byte 


lsr 




;/2 . 


move 


. IfCodeMinLen, r4 • 


;get min codelen 


move 


a, n4 


;get T • 


move . . 


y : mbyte, xl 


;get message byte len 


move 


. y : (r4+n4 j , a 


;get min len allowed 


cmp 


xl.a 




:ie 


< Nolnsert 




sue 


xl,a 




.move 


a. y: inbyte 


; store insert byte num 



_Nc Insert . 

move . y: inbyte, a . 

move y : mbyte ,xl , 

add: , xl,a y:pbyte,xl 

" add-' / xl, a 

:■ wr RS block length' 

move ai,y:RSRegl 

move v al,y:mapbyte 

move y: mbyte, a 

move *>1 ..xl -. 

•. sub" ' xl.a y : mbyte ,xl 

move al.y:cbyte 



cal the delay 



;get inserted byte " 

; code wo rdieght=mbyte+pbyte* inbyte 
; codewordleght «mbyte*pbyte* inbyte 



;a4-0,a3»l" only 40MHZ elk and CS and WR 
;save message .* parity byte 

;get meaasge byte 

..-get message.- byte 

."; save message", byte . length;' - 1 ■ 



mcve . 


. y :pbyte,x0 . 


,;load xO 


mpy 


xC,xO,a 






mcve 


. a0,al. 






lsr 


- a . . 


#>73.x: ,\ 


;a -»■ p**2 


add . . 


xO , a 


y :pbyte,b \ 


73 - 


is: 


. b . •. - 


al,x0. • 




IsZ 


'b :■' 


y rmapbyte, al 




add;' 


.' xc,c ;.; 


v';f.4xp.'' 
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isl 


/ " a . 




lsi. 


'.a 




-Isl". 


■" ' a ■ ■■ 




Isl 


'a 


bl,xO 


add ' 


xO,a 


#>l,xO 


lsr. 


' a" 




lsr 


• a' 




lsr 


'.. =V- - 
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;"x,16' 



16x(m+p) 



; cal the delay 

'sub 
. sub •"• 
sub 
move 



xl, a 
xl,a 
xl, a 
al , y :dbyte 



y :pbyte,xl 
y: inbyte.xl 



move y:pbyte,al. 
Wr parity length 



move 
lsr. 



al , y :RSReg2 
a 



; Wr correction power, t number 
move '. ." ai,y :RSReg3 
V; move' #>32, al 
; Wr synthesis clock • - 



move 
move 



al, y :RSReg6 
#>0,al. 



; Wr bit per symbol ^ . 

\ move al,y:RSReg7 
,* reset again after all register have 



move 
move 



#0,al 

al , y : RSRegS 



; wait for some time 

do #400,_resetch2 : 

• 'nop '. 
_fesetch2 

bset ; : *l.x:<<M_PCD 
/Initialization is completed 

movep #$0101, x: <<M_BCR 

;. RS decoding ' start,. 

. . move / y: (r3 ) + ,x0 
x . move • xC , y :RsLpCnt ' 
. move -' r3 ,y :RsR3Tmp 



;/8 



;get p byte'.' 

; get insert byte 

;delay without output reading 

;fr of bytes to be PARITY BYTES 



^4=0^3 = 1 elk- CS/WR pulses are activ* 
;/2 get correction power. 



;a4=0,a3=l only reset pulse. and elk 
; set SYMBOL Synthesis of the RS codec 



;N at address 5 

;set SYMBOL division 8. bit per symbol. 



; address 6 
been filled 

"■'■;' reset again 



;40 MH2 elk is there.' 

;turn off the bit elk after reset 

;set low duration, of "esMchip sleet 

; load the repetition' time . : 
;save' r3. for later' 
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'-^RsLoop • 

; gee first, input byte : 

■ ; . move '. #8 ,n4 ' - 
' jsr . <rsge rvalues 

; or FRAME START SIGNAL and first byte 

"' .move'- #>5100,xl insert frame start signal . 

or xl,a . ;The first DATA byte is "OR ' gated 

;.as the R-S codec thinks you are 
. ; sending the first data byte at 
;the same time with the FRAME 
; start pulse. 

do #8,_dtasndl00 

movep aI,y:<<RSIN .; SEND 1st data byte and also RAISE the 

; FRAME START PULSE 

_dtasndl00 

' ; input message- 1 byte to "decode - 

" clr a--' • • y:cbyte,xO 

move xO,y:RsLpCntl ; initial loop count 

*■■ ^RaLoopi '■ 

•.; move' #8 , n4 : 

jsr. <rsgetvalues ■■ /- '; 

do 4* 8 ,_dtasndl 

movep al,y:<<RSIN . ;a4=l,a3=l only elk and data 

dtasndl • 

move y:RsLpCntl,a ;test loop cnt 

move #>l,x0 . .' ; dec count 

' sub ■ xO , a ' 

; jle" . . < EndRsLoopl ■ . ' 

move . a7y:RsLpCntl . ;resave loop count 

.jmp ■ <_RsLoopl ■ 

_EndRsLoopl 

; insert zero message byte to decode if it's not zero. 

' move y: inbyte,a . ;chk if insertion is needed 

• tst - . " a. • . •• 

jeq <_NoIntion V 

clr a . y:inbyte,xO ■ : -' : 

move; . xO,y:RsLpCntl ... -initial loop count. • 

RsLoop2 r : • •• 

. ~ - do #8; dtasnd3 • ; .• v ' 

: . movep al,y:«RSIN . ;a4«l,a3«l only elk and data . 
dtasnd3 ' 

' ~ . move y:RsLpCntl,a \;test loop cnt 

■ "... move ; . #>l,x0 \ • ?dec count 

'. sub xO , a •' ■ ". 

. jle < EndRsLoop2 

■ move. a7y:RsLpCntl . . ; re save loop. count . 

; ' '•" ..clr:: . ; . a -. \ 

■ jmp <_RsLocp2 -'. : 
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_EndRsLoop2 ; 
. _NoIntion \] 
; input parity byte to decode 



. clr 
move 

_RsLoop3 

move 
jsr 

' •• • ' <3o • ■: 
■ movep, 
_dtasnd5. 
~." move 
move 
sub 

move, 
jmp 

EndRsLoop3 



a y : pbyte , xO. 

xO ,y : RsLpCnti 



r initial- loop coun: 



*8 ,n4 ■ . 
<rsget values 
#8,_dtasnd5 
al,y:<<RSIN 

; y:RsLpCr.tl,a 
#>l,xO 
xO,a 

< EndRsLoop3 
a7y : RsLpCnti 

< RsLoop3 



.;a4«l;a3-l only elk and data 

; test loop cnt 
; dec count 



push zero input for delay byte 



• clr - 
. move 

RsLoop4 ; 

do 

movep 

_Gdatal00 

move 
move 
-sub 
jle 
move 
■ . clr 
jmp . 

_EndRsLoop4 



a. y:dbyte,xl 
xl,y: RsLpCnti 



*8, GdacalOO 
al,y:«RSIN 

y : RsLpCnti, a 
#>l,xO • . ' 
xO , a 

<_EndRsLoop4 
aTy: RsLpCnti 
a 

<_RsLoop4 



reading decoded data output. 



move 
move 
move 



y : mbyte, xl 

#>$80,y0 

#>$aooo,yi 



move xl, y: RsLpCnti 



RsLoop5 

clr 
do 

movep 
_Gdata200 

move 

' ■ and . ' 
move 



a : \ #>$f f ,x0 
. #8,_Gdata200 
ai,y :<<RSIN 

y:RSOUT.bl 

X0,b 

bl.xO 



; re save loop count. 



; initial loop count 



;a4«l,a3»l only elk and data 

;test loop cnt 
;dec count 



;resave loop count 



.'test'- byte counter and put output byt 



.; shift right 16 bits 
; shift right 8 bits 

/initial, lp count 



;a4-l,a3«l only cllc and. data 
; provide clock and read data 
;get set. for shift -. • ; 
e to. right pos of output . buf f er. 
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move 
move 
cmp 
jne 



fst byte 



;mpy 
clr ; 
move 
and 
move 
jmp 



_Tndbyte 



cmp 
jne 

,mpy ; 
clr 
move 
and . 
.or. - ■ 
move 
jmp 



_Lstbyte 



clr . 
move . 
and 
or ; 
move 



_EndAByte 



move 
move 
. move 
sub 

.; • 3le : 
move 

EndRsLoopS 



r2 , a 

*>2,xl , 

xl,a #>i.xl 

< Tndbyte 



x0,yl,a #>$ffO0O0,x0 
b 

, aO.bl . 
xO.b 

bl.x: (rl) 
< EndAByte 



xi/a" - #0,xi 
<_Lstbyte 

xO,yO,a #>$f f00,x0 
b 

a0,bl 

x0,b x: (rl) ,xl 
xl,b ■ / 
bl,x: <rl) 
< EndAByte 



b 

*>$ff ,bl • 
x0,b x: (rl) .xl 
xl,b ■ lr5) + 
bl.x: <rl)> . 



(r2)- .. 
y:RsLpCntl,a 
#>l,x0 
x0 ( a 
, <_EndRsLoop5 
a,y :RsLpCntl. 
<_RsLoop5 



•get byte count 



r shift right 8 bits 



; shift ; right: .16 bits 



;or it with' previous. 8 bits 



; mask off last 8 bits 

; increase word count 

;save the musi cam data for desort 



;2-i-0 mod 

; test loop cnt 

;dec count 



;resave loop count 



forget inserted zero message byte 

■ y :inbyte# a. 

a ■ 

<_NoIntionlO . 



next 



move 
-est 
3.eq 



clr 
' move 

RsLoop6 

- ; do . 

/ movep 
dtasnd20 
" . move 

\ move 

sub-; . 

jie ■ 



xO, y.RsLpCntl 



#8* dtasrid20 
al,y:<<RSIN 

y:RsLpCnti,a 
#>1,X0. 

xO , a 

< EndRsLoop6 



y:inbyte f xO 



\ ; chk. if insertion' is needed 



: initial lp count ' 



;a4«i, a3-l only clx and data 



;test loop cnt 
; dec count 
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move 
■ clr 
jmp 

_EndRsLoop6 



a, y :RsLpCr.tl 
<_RsLoop€ 



;resave loop count 



_NoIntionlO 

; forget parity output at the end of frame 



clr , 
move 

RsLoop7 
" . . do 

movep 
_Gdata3 00 
. ™ . . . move 
move 
sub ■ 

jie ; . 

move 
clr 
jmp , . 
_EndRsLoop7 

move 

move 

sub 

jle 

move 

jmp. 



a y:pbyte, xi 

xl,y: RsLpCnt l 



#8, Gdata300 
al,y:«RSIN 

y : RsLpCnt 1, a 

#>l,x0 

xO, a 

<_EndRsLoop7 
a ,.y : RsLpCnt 1 
a 

<_RsLoop7 ■ 



y : RsLpCnt , a 
#>l,xl " 
xl , a 
<_RepEnd 
a , y : RsLpCnt 
<^RsLoop 



; repetition- end 
_RepEnd 



move 

nop 

move 

tst 

jne 



y;RsR3Tmp,r3 

y: <r3> ,a 
a 

<_Bentry 



; patch zero to make 96 (a full rrame) 



move 

move 

sub 

Die 

do 

move 
PatchZerol . 



#>96,a 
r5,xp 

x0,a #0,x0 
<_PatchZerol 
a, _PatchZerol 
xoTx:(rl)* 



; end of RS decoding for One Profile 



move. . 
movep 

rts . - 



#-l,m2* 

#$0001,X:<<M_BCR 



; initial, lb' count , 



;a4«l, a3»l only elk and data 

•test loop cnt'. '". 
;dec count 



;resave loop count 



; test loop cnt 
;dec count 



; resave loop count 



; reload profile ptr 

; test if a '0' at last RS. block 



;inc to next frame 



;set all external io wait states 
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<c) 1995 -Copyright Corporate Computer Systems, Inc. All rights reserved; 
; \DGCST\bitalloc.asm: use the ojpsych parameter (safety margin) 
; This routine is used to allocate the bits 

; It allocates at least some bits to all sub-bands with a positive SMR 
.; .It allocates m three phases: . ' .' 

■;■ A... allocate all sub-bands until they are all below 

the Global Masking Threshold (regardless as to how many 
. bxts it takes) 

. note 1.. a limit (sub-band boundary) is set which requires '. 
; . a11 sub-bands up to the boundary require at least 

, ; index 1 be allocated even if the signal is already" 

below the Global Masking Threshold. (This provides 
. a noticeable improvement in continuity of sound) 

. After Phase A is completed, a test is made to see if the bit poo "> 
was overflowed by the allocation. 
a * if the frame fits. Phase B is skipped and Phase C is done 
b. otherwise, Phase B is required to selectively de-allocate, the : 
«* . best sub-band candidates. 

; on .entry • • , " 

; • . y : <stereo ■ flags:. • 

(set on entry) bit 0 indicates whether or not left channel active 
? . Q »" channel not active - 

; 1 » channel active for framing 

; bit 1 indicates whether or not center channel active 

0 * channel not active 

1 "channel active for framing 

bit 2 indicates whether, or not right channel active ' 
* • • C » channel not active 

; \ 1 * channel active for framing . \ 

bit 3. is used to indicate left vs. right channel 
applies if bit 4 set to 0 (NOT . center channel) 
»" ; 0 » looping through left channel arrays 

»"■; . "1 ■ looping through right channel arrays 

bit 4 is used to indicate center channel vs left right 
* 0 - process left or right channel arrays 

1 ■ looping through center channel arrays; 
bit 5 is used as the Fir9tTime switch in an allocation 
0 " cleared if any allocations were made 
; . 1 ■ no allocations made to any sub-bands 

bit 6 is used for critical de-allocate and allocate passes: 
; . . with below masking threshold being a criteria 

; •'" : ■ de -allocate: 

; . 0 - select from any sub -band channel 

; V . 1 - select from only .those below mask . 

;" -allocate: ■ - ; 

0 - there are sub -band channels not below mask 

1 • all sub-bands, are below mask . 

; bit 7 is used for .critical de-allocate and allocate passes: 

; de-allocate: : 

0 * select from any sub -band channel 

1 ■ select from those with 2 or more allocation 
; ' allocate : * 

. 0 « are sub-bands :not below hearing thresh, 
; ' 1 » all sub-bands are below hearing thresh' 

bit S is used for critical de-allocate and allocate casses: 
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. . de -allocate: 

0 - select from any sub-band channel 

1 - select from any sub-band channel 
allocate: for final pass after bit allocation timer . . 

0 - timer interrupt not. yet sensed'" 
•■ 1 • : timer interrupt was sensed 
bit 9 is to simply indicate that the sub-band limit for 

allocating at least ONE position has. been reached 
. within a. current loop:-' 

0 - NOT at sub-band limit 
: 1 - reached the sub-band limit 
..bit 10 is. to simply indicate that the maximum sub -band for 
consideration for allocation has been reached 
within a current loop: 

0 - NOT at maximum sub -band limit 

1 » reached the maximum sub -band limit 

y:audbits - number of bits available for sbits, scale factors and data 
y:<usedsb. - number of sub-bands actually used 

y:<limitsb .» number of sub-bands requiring at least one allocation 

y:<qtalloc - timer interrupt set to signal quit allocation loops 

r0 .» addr of the SBits array (x memory) 

rl « addr of MinMasking Db array (x memory) 

r2 « addr of SubBandMax array (x memory) 

r4 « addr of the SubBandPosition array (x memory) 

rS * addr of the SubB and Index array (x memory) 

'oh exit 

. .'a =■ destroyed 
b » destroyed ' 
xO = destroyed • 
xl = destroyed 
yO » destroyed-. 
yl * destroyed 
r3 » destroyed- - 
r$ -destroyed 
"no * . destroyed ' • 
nl = destroyed ■ 
• r.2 = destroyed 
n3 = destroyed 
n4 * destroyed 
nS -destroyed 
n6 « destroyed i 

AtLimit array by sub-bands (32): 

bit 0 set when allocation is below the masking threshold 

bit l set when allocation is below the threshold of hearing 

bit 2 set when allocation is at the limit of maximum position. .. . 

or there are not enough bits to allocate 

the sub-band further. 

■ include 'def.asm' 

. include' ' box_ctl .asm' ' 

section lowmisc • \ / ■•:•".' 

•-. . xdef. ; ■ ." KNRsub • 
• \ : xdef: . . AvlBits : 

. xdef •:• ■ TotBits 

"'.xdef- KldBits ' 
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xdef 


count 


' org-'' 


yliY ' - 


stbitalloc_yli 




MNRsub ds 


1 ■■' 


AvlBits ds .. . 


1 


TotBits ds 


1 : ■ ■ '■ 


HldBits ds .. 


i 


count ds 


l 


endbi t al locYy 1 i 




endsec 




: " section 


highmisc 


xdef 


BitsAdd 


xdef 


BPosAdd 


.' xdef 


BInxAdd . 


xdef 


AllwAdd. 


xdef 


MaxPos 


xdef 


MNRsb 


xdef 


MNRmin . 


". ' xdef - '■ 


MNRinx 


.. xdef 


MNRpos 


org 


yhe : 


stbitallqc_yhe : 




Bits Add ds 


1 


BPosAdd ds 


1 


BXnxAdd ds 


1 . 


AllwAdd ds . 


1 


MaxPos ds 


1 


MNRsb : .ds. 


1-- 


MNRmin ds 


■ l 


MNRinx ds/ ' 


1 


MNRpos ds 


■ i 



/count cf entries in de-allocate tables 
/available bits to allocate 
/current bit count allocated 
/sub-band critical allocation 
; sub -band counter 



,-save address of. SBits array 

/save address of SBPosition array 

; save address of SBIndex array 

; save addr of applicable Allowed table 

/Max Position per selected Allowed table 

,-curr sub-band for allocation 

/value of curr sub-band for allocation 

/new index for selected sub-band : 

;new allowed position for selected sb 



endbi talloc_yhe 
• endsec : 



. section highmisc 



xdef 
. xdef 
,. xdef 
xdef 
-xdef 

■ org 
stbit alloc xhe 



AtLimit . 
SBMsr 
SBMNRmax 
MNRval 
MNRsb c 

xhe:. 



/flags set when a sub-band reaches its limit of allocation: 
Tone per 32 subbands) v.. 

bit .0: set if below the global masking threshold 
bit 1: set if not used or fully allocated ; . 



At Limit : ds 



NUMSUBBANDS 
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.-This array holds the MinMaskingDb - SubBandMax for each of ".the .32 "subbahds. 

SBMsr ds : . NUMSUBBANDS ; Mask -Signal ratio by sub-band 

; This array holds the deallocation selection values: '. .'; 

(MinMaskingDb - SubBandMax) SNR [position at next lower index] • 
;for each of the .0-31 subbands ' • 



SBMNRmax 



MNRval 
MNRsbc 



ds 



ds 
ds 



NUMSUBBANDS 



NUMSUBBANDS 
NUMSUBBANDS 



; Mask -to- Signal ratio- 
; plus SNR (PrevPos} 

;table of ' ordered values sub-band 
.-table of associated sub-band 



ehdbitalloc_xhe 
endsec 



section xtables. 



xdef 
xdef 
xdef 
xdef; 



ndatabit 
NDataBit 
NSKFBits . 
SNR . 



• org . xhe: , 
stbitalloc_xtbl 

;This is the addr ;of the selected table, ISO or CCS compression, 
. ; . for the number of bits for. data allocation by position . 

ndatabit ds 1 ' ;addr ISO or CCS compress NDataBit tbl 

;This is the ISO table for the number of bits for data allocation by position 

NDataBit '••'.' 



dc 


0*NUMPERSUBBAND 


; index 


a 


0, 


no transmit 


B 


0 


bits 


dc 


5*NUMPERSUBBAND 


. , ; index 


s 


1, 


packed 




60 


bits 


dc- ■ 


7+NUMPERSUBBAND 


; index 


* ' 


2, 


packed 


a* 


84 


bits. 


dc 


9* NUMPERSUBBAND . 


; index 


m 


3 ■ 




m 


109 


bits 


dC 


10*NUMPERSUBBAND . 


index 




4, 


packed 


3 


120 


bits 


dc 


; 1 2 * NUMPERSUBBAND 


. ; index 


s 


5 






144 


bits 


dc 


1 5 * NUMPERSUBBAND . 


'; index 


m 


6 




m 


, 180 


bits 


dc 


... 18 * NUM PERSUBB AND . 


; index 


m 


7 






216' 


bits 


dc 


2 1 * NUMPERSUBBAND 


; index 




8 






252 


bits 


dc 


2 4 * NUMPERSUBBAND 


• ; index 


St 


9 




' a 


2B8 


bits 


dc • 


27*NUMPERSUBBAND. 


. ; index 


s 


lb 




a- 


324 


bits 


dc ;■ 


. . 3 0 * NUMPERSUBBAND 


'■ '. ; index 


' s 


n 






.360 


bits 


dc ■■ 


3 3 * NUMPERSUBBAND 


'/index. 


a ' 


12 






396 


bits 


dc 


36 * NUMPERSUBBAND . 


; index 


s 


13. 






432 


bits 


dc . = 


3 9 * NUMPERSUBBAND ■; 


; index 


m 


14 






46B 


bits 


dc 


4 2 ♦ NUMPERSUBBAND 


■. _ ; index 




15 




m 


504 


bits 


dc 


4 5 * NUMPERSUBBAND 


. ; index 


.* 


16 




m 


54 0 bits 


dc 


4 8 * NUMPERSUBBAND 


. . ; index 


a 


17 




m 


575 


bits 



;This is. the CCS compression table for number of bits 
• for data .'allocation' by position 



ac 



0 * NUMPERSUBBAND ". 
4 * NUMPERSUBBAND 
t ♦ NUMPERSUBBAND 



; index s 0,. ho transmi 
; ; index * l, packed 
; index . » 2 , packed. 



■ G bit's' 
48 . bits 
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dc 


6 * MUMPERSUBBAND 


. ; index 


a 


3 ■ , 


* 


94 c::s 


dc 


' 1C*NUM?ERSU3BAND. 


■ ' ; index 


s 


4 , packed 




120 


bits 


dc 


12* NUMPERSUBBAND 


; index 




• s ■ ■ 




144 


bits 


dc 


15*NUMPERSUBBAND ' . 


; index 


m 


6 ' :■ .. 




180 


bits 


dc 


1 8 ♦NUMPERSUBBAND 


; index 


m 


.7 V 


3 ' 


216 


bits 


dc / 


21*NUMPERSUBBAND 


. ; index 




8 




252 


bits 


dc ■ 


2 4 * NUMPERSUBBAND 


; index 




9 


a 


288 


bits 


dc 


2 7 * NUMPERSUBBAND 


; index 




10 


■ m 


324 


bits 


dc V 


3 0 * NUMPERSUBBAND 


; index 




li ■ ■' 'V' ■ ■ v 


■ ' » . 


360 


bits 


dc 


. .3 3*NUMPERSUBBANDi . 


index 


a 


12 




396 


bits 


dc ; 


3 6 * NUMP ERSUBBAND ; 


; index 


-a 


13 


-. . 8 ■ 


432 


bits 


dc 


3 9 * NUMPERSUBBAND . 


; index 


s 


14 . 




468 


bits 


dc 


4 2 ♦ NUMPERSUBBAND 


; index 


* 


15 


■ 


504 


bits 


dc . ■'. 


, 4 5 * NUMPERSUBBAND 


; index 


■ s 


16 




540 


bits 


dc 


4 8 * NUMPERSUBBAND 


, ; index 


m 


17 


• m 


576 


bits 



;Each sub-band, if it is transmitted, ..must send scale factors . The 
;Sbit patterns determine how many different scale, factors are transmitted. 
; The number of scale factors transmitted may be 0, 1, 2 or 3. Each scale 
; factor requires 6 bits . .. 



;Sbit patterns 
; 00 
; 01 

10 - 

11 ' 



Transmit all three scale factors 
Transmit the second two scale factors 
Transmit only one scale factor 
Transmit the first two scale factors 



18 (3 * 6 bits) 
12 (2 * 6 bits) 
6 U ♦ 6 bits) 
12 : (2 * 6 bits) 



;The NBits array is used to determine. the number of bits to allocate for the 
•scale factors. NSBITS (the 2 bits for SBits code) are added to account for 
;all required scale factor bits (18*2, 12+2 , 6-2 , 12+2) . 

NSKFBits . • " 

dc ■ 20,14,8,14 • 

;This is the table for Signal to Noise ratio by position 

include *' . . \xmicro\snr .asm* : 

endbitalloc_xtbl. . 
endsec 



org 



phe : 



bicalloc 



;Save the array starting addresses 

■move r0,y:BitsAdd 
move r4,y:BPosAdd 
move r5,y:BInxAdd ' ■; 

;select the ISO or CCS comperss ion table for NDataBi: 



;save register of SBits array 
;save register of SubBandPbsition array 
; save register of SubBandlndex array 



move 
move 
jclr 
move' 

_bita_20_A 

"; move 



#NDataBit,r5 . ,; standard ISO table 

# 18 n g .-offset to CCS compression table 

#0,y:<ctnprsctl,_bita_20_A . . ; if not applicable, continue 
(r5}+n5 ; ' 



v ; select ; the CCS compression table 



r5,x:ndatabit 



;set addr . of NDataBi t table' for alloc. 
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;;;set up the MNR array - 

..move #SBMsr,r5 
; apply the safety factor 

. move . y :o_psych,yO,: 
.; loop through all sub-bands 



;addr of Mask -to- Signal by sub-band 
;get the, safety factor 



do . #NUMSUBBANDS,_bita_30_A . . 

move . x:(r2)+,x0 ~. ; get a channel SBMax 

move x:(rl)+,b ;get its channel MinMsk 

sub . xO, b ;. ;MinMask - SBMax «= Mask-to-Signal ratio 

. sub . y0 , b ; apply safety factor to channel value 

.move . b,x:(r5)*. . ;store for test if below mask already 

_bita_30_A .; END of: do loop ■■ 

; set the working value for bits available for allocation; 



move 
move 



y:audbits,xQ 
xO.y :<AvlBits 



;get standard available bit cnt 
; store as working bit cnt 



bita 40 A 



; (C) TotBitS » 0; 



/* start the bit allocation, counter .'*'/'; 

; total bit used, xl s 1 for start index 
;yl - 0 to initialize 



'. clr ' '• a ' .•• #>l,xl . 
move a, yl 
move •• a, y : <TotBits ■. 
move a,y:<count ;start the sub-band, counter 

•bclr. #AT_LIMIT_SUBBAND,y:<stereo. ;N0T yet at sub-band limit 

. ■"" - "" . ■ ; which require at least 1 allocation 

bclr #AT_USED_SUBBAND, y : <stereo ;NOT yet at sub-band maximum 

. ~ ■ ;. limit for coding used sub-bands 

;initial allocation for all sub -bands ; 

1. that are within the use (less than OsedSubBands) 
• . . 2. with a MinimumMasking to MaximumSignal above the masking threshold 



move . 
move 
move 
move 
move 
move 
move 



ttSBMNRmax, rO 
#SBMsr,rl 
y:BitsAdd,r2 
y:AllwAdd,n3 
y:BPosAdd,r4 
y:BInxAdd,r5 
' #AtLimit,, r6 . . 



;addr of de- alloc Max signal -noise 

;addr of Mask-to-Signal by sub -band 

; set register of SBits array 

;init the current Allow table 

;set register of SubBandPos it ion array 

;set register of SubBandlndex array 

;point to. SubBandAt Limit array , 



'; clear the n registers for the. channel reference. 



clr 

move 

move 

move 

move 

move 



a 

a, nl 
a,n2 
a,n4 
a,n5 
a, n6 



#0,n0 



; SBMNRmax array 
; SBMsr array 
; SBits array 
;SBPos array . . 
,.;SBIndx array . 
;AtLimit array 
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; initial allocation pass 

; dc all required sub - bands . 

do- ' . #NUMSUBBANDS,_bita_99Q_A , 

initialize- the pertinent sub- band, values to .C 

;clear allocated -limit flag 'AtLir.it ';/ 
;clear allocated index . '.SBIndx: . 
;clear allocated position iSBPosi. . 

;if we reached the used sub- band limit, -.. 
take this one out of the picture completely 

' ,'jset. #AT_ySED_StiBBAND,y:<stereo,_bita_180_A 

move - . :-y :<count , y0 - - - "/get current sub-band (00-31) ; - 

; see if we reached ' the. used sub-band limit 

move yrcusedsb.b ;get count of used subbands for resting 

cmp yCrb ;see if sub-band, not to be coded. 

,09- <_bita_50_A ■'■ .;if not, "continue: 

bset #AT_USED_SUBBAND,y:<stereo ; just reached sub-band maximum 

jmp . . <_bita_180_A . ;take completely out of use 

_bita_5C_A .' , 

;if we reached the sub-band limit for those requiring at least one sub-band, 

; see if. we have anything to allocate to get below the Global Masking Threshold 

-set »AT_LIMIT_S r JBBAND;y:<stereo f _bita_90_A . 

;see if at least one allocation is required regardless of signal to ncise ratio 

move y : climitsb; a ;get sub-band limit for at least 1 alloc 

cmp . y0,a \ ;if there is. initial allocation 

3?" <_bita_95_A ./continue 

bset - #AT_l;IMIT~£yBBANE , y : <stereo . .. ;just reached that limit 
_bita_90_A 

- otherwise, see if below Mask -to -Signal 

;get sub -band's Mask -to -Signal ratio 
.-test Mast-to-Sig fcr positive value 
,';if below, masking thresh, set flag 



puts Signal below Masking' Threshold . 

; start at 1st Signal- to-Noise position 
■ ;addr -of Si'gnalrto-Noise table.. 
,;get signal to mask ratio 

bita_H0_A 

;get the Signal -Ncise at position 
;add MKR to SNR fcr. test 



move yl. X; (r6+n6) 
move yl . x : <r5+n5) 
move yl . x : (r4+n4 ; 



. move .x: Crl*nl) , a . 
.. tst ' a 

. jgt. .<_bita_190_A - 
_.cita_95_A - .■ 

;find Signal-to-Noise position that 



move ' 


xl,r7 


move 


#SNH,n7.- 


move 


x: £rl+.nl).,yC ' 


d p ".; 


. ; «numsnrpos:t:cns 


move 


"x'r ■r7^n?» J .a ■ 


add 
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< bita 100 A 



; still abov* mask, try nex- pes men 



now below the Global Mask/ quit the loop 
< bita 110 A 



enddo 

.jmp 



; found position . stop ft NUMSNR POS - 1 loop 
;cc to- end' of loop-:' 



Jsita_lC0_A • ■ ; 

; try the next position and continue the loop 



move 

_bita_::o_A 

move 
■ move 
■ cmp 

. . ■ jge 

move 



(r*7) * 



r7 # y0 . 
y:MaxPos.a 
yO , a : yl, r3 

< bita 115 A 
al/yC.~ 



;try next Sig-Noise position . 

; END of fcNUMSNRPOSITIONS-l dc loop' 

.•save the matched SNR position 
;to test if exceeded: max position 
; is counted position greater than max 
; & start at index 0 with allocation 
;if not, go on to match the index 
;set position, at the maximum position 



_bita_115_A , 
;find index cf the position that best matches the selected SNR position 
'do'- ft NUM INDEXES , bita 130 A.; 



move 
cmp 



x: (r3+n3) , a 
yo.a . 

< bita 120 A 



; get the sub-band indexed position 

; compare ' to selected . position 

; match not found yet. try next index 



; found the matching index, quit the loop 
< bita 130 A 



enddp. 
;jmp 



; found index, stop ft NUM INDEXES loop 
;go to end of. loop ' 



_bita_120_A. 

;.try-.the next index and continue the loop 

'move (r3)* . ; try position at next. index 

;see if end cf the table line reached 



move 
tst 
■ jne 



x: (r3*n3) ,a 
a 

< bita 125 A 



; get this next index to test 
;test for an index cf zero 
;if not 0,.;keep looking 



index cf zerc indicates no higher indices apply, back up 1 : and use that 



move, 
bset 
bset 
move 
enddc ■ 
■ :tnp: :• 



t r 3). ;use previous inaex 

■ ft ALLOCATE LIMIT, x : <r6+n6 ;.; set the completely allocated bit-.. 
"ftHEARING LlKIT.x: ':r€+n€/ ;set the completely allocated bit. 

X:;r3*n37,a ;assign the last index position 

" • i found index, stop, ft NUM INDEXES loop. 

< bita 13C A - ' ;g=> tc end of ■ loop ". 
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>lta_13C_A .';ENE cf #NUM INDEXES do. loop 

rset the initial, allocation . SubBandlndex and SubBandPosition 



move 
move 



r3 .X: <r5+n5> 
al,x:(r4+n4i 



;set initial allocation SBIndx 
;set initial, allocation. SSPos 



; determine the number of scale factor . tits allocated -at\ this position 



move 
move 
nop 
move 



x: (r2+n2: ,n7 
#NSKF3its.r7 



;get the 'SBits scalefactcr code ; 0-3) : 
;addr SBits scale factor bit count- tbl 



;save the scale factor bit count 



_bita_14C_A • 

;add the bits required for the signal data 



move 

move 

nop 

move 

add 

add 
move 



X: <r4+n4) ;n7 
x:ndatabit , r7 ■ '. . . 

x : (r7+n7) .a 

y0,a y:<TotBits,xC 

xO, a 

a, y : cTotBits 



;get the position 

; address of data bit . count by position,: 

,*get the bit count at this position 
;add scale factor bits 
.; and get curr TotBits 

..•update. TotBits with bits' just allocated 
; save new allocated total bits 



;check that Signal -to-Noise position that Signal beiow Masking. Threshold 



move 
move 
move 
add-. 

. bset 
bita 160 A 



«SNR.r7 

x: (rl+nl} ,y0 

x : (r7+n7; , a 

yO.a x: ir5+n5) ,r3 



;addr of Signal -to-Noise table 
;get signal to mask ratio 
,*get the Signal-Noise at position 
: ;add MNR to SNR fcr test ' 
; & set up to set prev index for its pos 
<_bita_16C_A .-above mask, skip next statement 

^MASKING LIMIT, x: (r6+h€ . : . ;set AtLimit oartially done allocate 



;set the value for testing the. best sub-band to. deallocate, bits from 
;if the frame cannot, handle the full required allocation 



move 
move 

move 
add 
move 
3mp 



:r3) 

x: {r3+n3),,n7 

x: <r7+n7)., a 
y0,a 

a,x: IrO+nO) 
c bita 20C A 



,-back up one index to get' that position 
;get the position at the. previous index 

?get the Signal-Noise at : position 
.-calc Sig-to-Noise at prev position . 
; save in SBMNRmax array for later 
^continue, with the next sub-band,. 



bita 



;sub-band is not to be coded at all 



bset 
. bset 

bita lr: A 



#ALLCCATE_LIMIT,x: .;r6+n£ ;set AtLimit .totally out of allocation 
SHEARING LIMIT, x: ir6*n6' ■ ;set AtLimit at. threshold, of hearir.o 
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;S ur-band is set t z indicate it is. at its masking. threshold. 

- . bset #MASKING_LIKIT.x:tr€*n€V ; set AtLtr.it partially done allocate 

_bita_20C_A . • ' ; 

"finished the sub- band set up for the initial allocation of the next subband. ■ 



move 
move 
move 
move 
move 
move 
move 
move 
stove 
move 
move 
move 



<r0)~ 
irl)* 
*16.r3 

Cr2)- 

tr3'*n3 . 
r3.n3 . 

(r"4>* " . 

!rS)* 

y : < count. r 7 
ir6i - 

ir7>* . . 
r7, y : <count 



_bita_99Q_A . ' 

- done with the initial allocation phase/ phase A 

' seethe de-allocation passes initial state of control 



; next sub- band SBMNRmax 
;next sub-band SBMsr 

;to position to next Allowed sb tabxe • 

;next sub-band SBits :, 

; next sub-band Allowed table array ^ 

;setaddr for next sud- band Allowed pps 

] next sub-band SBPos ; . 

; next sub-band SBIndx 

; get current sub-band count 

;next sub-band Atl.itr.it 

/increment the sub-band counter - ■. 

; save new sub-band 

; ejq zi ItMUMSUBBATOS do . Ioof : 



Elags 



bset *MASKING_PASS.,y:<stereo 
bclr ' 8HEARXNG_PASS , y : < stereo 
bclr FINAL PASS.y.otereo 



;flag do masking passes . ^ 
; allocate index must be > 1. 
;NCT final passes 



; see if frame fits or do we have to de-allocate selectively 



mcve . 
move 
cmp : 
39* 

dc 



y:<TotBics,xG 
y:<AvlBits.a 
xG . a 

<_bita_990_B 

310 0 C , _bit a_9 9 0_B 



.-get" the total bits allocated 

;get available bits. ^ 

;Tot3its vs BitsAvailable 

•it fits., allocate any leftover ti: 



; test the bit. allocation timout flag 



if tne 



i bit allocation timout *;„.v-««.- ni-aea^'e- 

timer flag was trip, switch over to the final oi- ai.oca-c, 

of any remaining bits- . <";.; 



jclr ' 

-set 

bset 

enddc 
move 

jmp ■■ 



#0.y:<qtalloc._bita_10 B s . . ■ . C or-^nue. if final 

HFIMAL PASS,y:<sterec, _tita_*0_B ,con--miis. 
!ri^:PWS.y.:<st.ereo ;set for FINAL criteria. 



y:<TotBits.xO 
<_bita_9 9C_C 



; stop the *100C loop and exit 
, ; get the total bits . allocatea. 
; out cf time, de-alloc under last oasis 



_bita_10_B • 

"now let's look for ^ qualifying.: candidates for next de- allocation 



move: 
move 
move 
move 
move 



JSBMNRmax.rO 
y:BInxAdd,r5. 
it AtLirr.it, r6 
*:,r.G . 



•addr of de-alloc Max signal-ncise 
;set recister of SubBandlndex array 
; point to SubBandAtLir.it array 
;.offset tc the channel SBMNnrr.ax 



offset tc 



SEIndx 
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move - r.C . nfi . 

move . *G , r2 

move . r 2 , y : cMNRsub 

move . *>l,xl 

move y :<limitsb,yl 

move #MNRval,n3 

move »MNRsbc.n4 . 



,-offset to .chan AtLimit '-. 

;use :2 as a sub-band counter-'." 

;start cnt ' of de-allocate table, entries. 

; to test for. index of. 1 

;to test for at least one alloc limit 

; get address of MNRval. table . , 

;get address. of MNKsbc table" 



;to deallocate- the 1 index if, the signal starts out below global mask 



move 
move 



#SBMsr,rl 

nO,nl 



;addr cf Mask -to- Signal by sub -band 
.•offset tc chan SBMsr 



;loop thru . the- sub - bands 

do. . y : <usedsb,_bita_60_B 
;ii nc index has been allocated, try. the /next sub-band 



move 

tSt ■ 



X: (r5+n5) .a 
a ' 

< bita 70 B 



; check. for an allocated index 
; if zero, try the next sub-band 
;no allocation try next sub-band 



Lf the 3rd mode of selection, no checks are made' 
jset #FINAL_PASS,y :<sterec, _bita_60_B 



; 3rd mode . use this one 



rif 2nd mode of selection sub-band may be below the masking threshold, but . 
checks to make sure that if index allocated is ONE and that the 
subrband is not required fcr continity 



j set #HEARING_FASS, y : <sterec,_bita_5D_B 



;2nd mode num. cf index 



.-must be 1st mode of selection which requires that the sub-band 
; be below the masking threshold 



bita ; 50 B . 



#MASK:NG_LIMIT.x: (r6-r.e: ; ,_bita_70._B 



; skip:. above mask thresh 



it we have allocated only 1 index, skip this sub -band if at least one 
. allocation is required 



cmp ■ xl . a . 

Tot <_bita_6C_B 

move '. - r2 , a . 

cmp yl , a ' 

19* " <_bita_70_B • •. 

move a>14 ,yT . ~ - ' 

cmp : yl,a . y : <liraitsb,.yi . 

j.l*" . ' ' <_bita_70_B • 

move . • xT \ rl «-nl i ., b. 

tSt b 

■tie < bita 70' S . ■ - 



; see 



index at 



;nc ( this sub-band qualifies 

; get current sub-band 

;see if sub-band below at least 1 . 

;if greater, deallocation candidate - -: 

; if .greater than 14/ check 

;test sb vs 14, restore iimitsb to yl 

;if. less than 14, keep the 1 allocation 

; get Max Signal to MinMask 

;if positive, started below global mask 

; if net positive ., keep the i allocation 



_bita_60_B. 
; candidate qua! 



:ies, . . :• 
rar.didate intt the table for 



:r.itial de-aliocattcr. 
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. jsr . . : <insert_value - 

_bita_70_B - ; V- ,;'- .•; .. 

; advance to the next sub -band 

move (r2) + ; increment the sub-band counter . v- 

move {rOJ* ; next ..sub -band SBMNRmax 

' move • . (r5) • ;next. sub -band SBIndx 

move (r6) + : next sub -band. At Limit 

bita 80 B ;end of y:<usedsb do loop 

;if there are any entries in the de-allocate tables, start reclaiming bits 

move y:<MNRsub,a ;get the de-allocate table entry cnt 

■. tst ' a ' ;test for . zero, no entries ■ 

jne < bita_110_B . ; are entries at this criteria, -dealloc 

.-since there were no candidates to deallocate (MNRsub » 0), 
] . change the selection criteria::' . 
.'■ if we've done the final criteria and nothing to de-allocate, 

' we can do nothing here, exit <How Come???) 

if we've not found anything with at least 2 indexes allocated, 

. switch to select f rom any sub -bands 
if we've not found anything below the masking threshold, 
V • . • switch to at least 2 indexes alloc 

• redo the selection criteria. 

j S et #FINAL_PASS,y:<stereo ( _bita - 69S_B ;??? shouldn't be, exit 

jset #HEARING_PASS,y :<stereo,_bita_100_B 

jset # MASKING PASS,y:<stereo,_bita_105_B 

bset #MASKING~PASS,y:<stereo 

jmp <_bita_200_B . ; loop thru with this, criteria 

_bita_095J3^ ; stop the illO 00 loop and exit 



V* 



move 



y:<TotBits,x0 ;get the total bits allocated 



jmp . <_bita_99;0_C 

bita 100 B : 
~ " . bclr . #HEARING_PASS , y : <stereo 



bset #FINAL PASS , y : <Stereo 
jmp <Jbital200_B v . ■ .;loop thru with this criteria 



bita 105 3 
' • : 7 bclr . #MASKING_PASS,y:<stereo 



hset SHEARING PASS , y : <stereo - . 

?mp <Jbita_200_B . . .-loop thru with this criteria 

there, are entries in the de-allocate tables. '.; 



bita 110 B 



; de-allocate from the table from l at _ entry to last 
7. or until enough bits have been reclaimed 



move. . a.y:<count" ' \ / - /start counter thru the table'' 
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; iocs through the ordered . de- allocation table 



do 


. y : < MNRsub , _bi t a_ 1 9 G_B ; 




move 


#MNRsbc,nO 


.•address of MNRsbc table 


move 


- y : < count, rO 


/current table entry index 


nop 






move 


x:^r0+n6) , a . 


•get selected sub-band 


move 


. a, y :MNRsb 


.-store current sub -band : (0-31!. 


move 


' irO)* . ■ 


; increment- to next table entry 


move 


■ rC,y : < count 


;save next table entry 



^restore the channel, array addresses 



move 
move 
move 
move 
' move 
move 



#SBMNRmax, rO 
SSBMsr.rl 
y :BitsAdd, r2 
y :SPosAdd, r4 . 
y : SInxAdd, rS . 
#AtLimit,r6 



/addr of de-alloc Max signal-noise; 
/addr of Mask-to-Signal by sub-band 
/set register of SBits array 
/set .register of SubBandPosition array 
/set register of SubBandlndex array 
; point to SubBandAtLimit array 



rset the proper allowed table of indexed position based on the selected sub-band 



move 

' tst ..; 

move 
do 

move 
bita 150 B 



y:AllwAdd,r3 

a * 

< bita 150 B . 
: #16,n3~ ; ' 
a. bita 150_B 
irl) -»-n3~ " 



;init the current Allow table 
/see if it's sub-band zero (from above) 
; sub- band zero was selected 
/to increment to next sub- band addr 
/increment to sub-band number chosen 
.; 16 position entries per sub-band 



move 


r3 ,n3-. 


■ rset .Allowed addr for sub-band chosen. 


move 


y : MNRsb t n0 


: ;get selected sub-band m SBMNRmax 


move 


n0.nl . 


; sub-band in SBMsr 


move 


' n0.n2 . 


. ; sub-band .in " SBits 


move 


• nO , n4 ■" 


. : /sub-band in SBPos 


move 


nO.nS." 


; sub-band, in SBIndx 


move 


n0,n€ ■ 


:; sub-band in At Limit - 


move 


x:ndatabit , r7. 


/address of data bit count by position 


move 


y : cTotBits,a 


/get current bits allocated 


move 


x: (r5*n5) ,r3 


/get the current .allocated index.. 


move 


x: ir4*n4) ,n7 


/get the position at the old index 


move 


(r3> - 


.'■../back up one index 


move 


•• r3,x: (rS+nS'';-" 


/save new SBIndx for sub-band 


move. 


x: ir7+n7.i' # x0 


"/ /data bits allocated at that position 


sub 


■ ■ xO . a 


/subtract old allocated data bits 


move . 


x: ',r3+n3I , n7 


. /get new position . 


move 


n7 ,x: ir4+n4 ) 


/save new SBPos for sub-band 


move 


x: \zt+r.1\ ,b 


/data bits allocated at new position 


add . 


b, a • ; 


/add new allocated data bits . 


tst| ; 


b . '•• • 


'/see if index 1 just de-allocated 


* }ne ' •' 


'.. <_bita_16C_B ' .. 


/if not. save the new TotBits value. ' 



/we have tc take off the scale factor bits 



move 
move 
nop 



x: :r2*n2I . ■ 
«N*SKr3its,r7 



'/"get the SBits scale" factor code 
; addr SBits scale factor bit. ccur 
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move x : r.7 *n7 ) f yo 
sub. .y0 , a . 



;get tne scale factor, bit count 
/.subtract from TctBits - * V 



_bita_160_B . .;• -J; \/ ' . 

■v move .a;y:.<TotBiLs: ; ;;.y -' ;S ave the new total bits 
; check if Signal-to-Noise position that Signal .above /be low Masking Threshold' 



bclr 
move 
move 
move 
move 
■ add . 

jle . 
bset 



x^n^rf T ' X:(r6 * n6) ; clear AtLimic below masking- -re she Id 
£c>iS ? v ■ • ; ? et - he position 

x Tri^nM vo ;addr of Signal- to-Noise table; : 

x. (ri*n*> f yO - ;ge t signal to mask ratic 

X:ir7+n7!, a . • ;ger the Signal-Noise a: pos::ior ■ 

y0,a X:.(r5-r.3),r3 , ;add MNR to SNR for test ^ . . 

< bita : 170 fi ■ 1 t Set up . to ? ec P" v - index for -its pes 

#M^K-5ji °t2- \ / c ,, ;above mas *' S ^P next statement ' ■■■ 
#MASK.Nw_ i ,IM i A , x : (r6-n6; .-set At Limit below, maskma thresh- 1 -» 



_bita_170_B 

/check if. the bit poci can now handle the frame as allocated 



move 
' move -" ■ 
cmp 

; : jgt : . 

enddo ' 
enddo 
jmp 



y:<TctBits,a 
y: <AvlBits,xO 
xO, a 

< bita 180 B 



<_bita_990_B 
bita_180_B 

if there is nc index allocated (r3 « c 



move 
tst 



r3,a 

a . ; (r3) - 
< bita 185 B 



; get the new total bits 

; get the available bits 

/BitsAvailable vs TotBits 

/need more, continue with de-allocation 

.'.•we're .done, here, stop MNRsub loop " 
; we 're. done here, stop . 81G00 loop . 



'■'. continue with : the next table" "entry 

;get newly decremented index allocated 
;if it-is zero, continue 
; St back up one index for that posit ior 
; allocated index equals C, continue 



set the value for testing the. best sub-band to deallocate bits from 
1 - tne - frame cannot handle the. full required allocation 



move 

"nop 
move 
.. add 
• move ' 

bita_185_3 . 

. ~ - nop 

bita_190_B. ' 
nop 

bita_20C_B. 

r ^p ' 

bita 53C B 



x: «:r3*n3 ) ,n7 

x: (r7+n7) , a 
yG , a 

a,x: {r0+n0}\ 



./get the.position at the. previous index. 

/get the Signal -Noise. at position 
/calc Sig-to-Noise at pre v position 
/save in SBMNRmax array for later " ' 

/continue y: MNRsub do. loop-. ■ 
■;end of y: MNRsub do loop 



.-continue #1000 do loop 
; end of si^*** d- *o— ^ ■ 
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;. se: :he allcca:;cn passes ' initial state, of control flags ; 

"bset . #MASKING_PASS.y :<stereo , .flag do masking passes ^' V .,' 

\ bclr #HEARING_PASS,y :<stereo ;NCT hearing threshold passes 

bclr #FINAL_PASS,y:<stereo . . . ;NOT final passes 

.get the total bits allocated so far 

move y : <TotBits,xO \ V- 

; Now that we have the initial bit allocation, iterate on it . 

; (c) for*. LoopCount '-».' 0; ; +«-LoopCount > ; { 

■ ■ 'do : \. *lC0C,_bita_990_C . ; ■ 

;test the bit allocation timout flag 

; if the timer flag was trip, switch over. to the final bit. allocation . 
; ' of .any remaining bits 

• • jclr *C,y:<qtalioc. jDita_10_C 

3set ■ *FINAL PASS. y : <stereo, bita 1C C • ; 
bset . ■ *FINAlTPASS . V • < stereo ~\ ■ 

;this is equivalent to the. call tothe c subroutine: 
; (c) AllocateBits ( ) ■ 

•inititial allocation is done., set-up for as needed allocation loop 
.-restore the left channel array addresses 

bita 10' C ' 

move *SBMsr,rl ;set register of SBMsr array 

move y:BitsAdd.r2 , "; set register of SBits array 

move y:BPosAad.r4 . .-set register cf SubBandPositioh arra> 

move y:BInxAdd,r5 .set register cf SubBandlndex array " 

move. #AtL.imit,r6 ..-point to SubBandAt Limit array . .. 

. ; tc) FirstTime « .l; . ' "/*st art run thru subbands this time ■♦/ 

bset #FIRST_7IME.y :<stereo '.-FirstTime » .'0 '-" 

; clear the. n registers for the channel reference 

; start -the' sub -band counter 

■ .- SBMsr array ; 

SBits array . 
;SBPOs array 
;SBlndx array 
\. .■ ;AtLimit . array-. ;." 



clr 


a •• 


move 


' al,y:<count 


move 


y:AllwAdd,rC 


move 


#SNR.r3 


move 


a, nl 


move 


a . n2 . 


move 


. ■ a, n4 . 


move 


a. n5. ".- 


move 


a. n6 ; 



; go through' all used sub -bands ' looking at - only those 4 * 
'.; " that .have 'not reached the. allocation limit ■ 

, .dc . .. y : <useasb.._bita_13C_C • 
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.-see if -his sub-bandvs limit/ flag was set previously, and skip: if it- has." ' 

" ■ ' jset : #ALLbCATE_ LIMIT, x: (r€*n€) ._bita_100_C ; skip, subbr.d reached "lixi: 
jset #FINAL PASS,y :<sterec,_bita_4 0_C ;pass skips below mask check 
'. jset #MASKING_LIM:t,x: (rG~n6: : ,_bita_10C_C ; skip subband reached liir.i: 



move 



x:(r4+n4),a .'. ; get curr position IS ubBand] 

/see if this sub-band has reached its limit already 



move 
crap 

3*3 



y :MaxPos,yO 
vC , a . . al, r.3. 
< bita 80 C 



;set max value 

rsee if max position ; move pos to r.3 
.•reached its allocation -1 ii.it . set flag. 



-»eck this sub-band out'. 
see if there is room to handle the next allocation for this sub-band 



;init added scale -factor bits 
: & to incr to next allowed bits si2e 
;SubBandlndex [SubBand] 



• , clr ; .. , b . ' #>i,yi . 
move x:.(r5+nS).,a 
;if this will be the 1st index, we must account for the scale factor bits 
tst Va #NSKFSits,r7 
'• ^ne <_bita_50_C 
rset the scale factor ^ sbits needed for. this 1st index in this sub-band 
x:(r2+n2>,nr ;get SBIts index, 

x: {r7+n7),b \ ;num bits for scaling infc 



; see if 0 

; & set addr of NSKFBits array 
;not 1st index, skip add scale bits 



. move 
nop : 
move 



bita s: 



add 
move 



yl,a 
al,n0 



;incr, get addr of NDataBits 
;set of f set for. Allowed next index 



x:ndatabit,r7 

;set oi 

; see if next allocation . is passed the max for this sub-band as per Allowed table 



nop 

move 

tst 



x:lrO+nO) .a 
a al", n7 . 



•. j eq V '• ■ <_bita_8C_ > C 
-.•test the-; allocation at..'. this hew positior 



; get the NextPosition as the new pps 
;see if passed the maximum position 
; & . move new pos to n7 - 
.-reached, its allocation limit set flac 



move 

■add- 

. move ' 
move 
move 

sub 



x: ir7+n7i ,yl ., 
yl,b . r.3-. r.7 

bl.yl ■ 

xO.b ■ 

x: (r7+n7) .yG ..■ 

yt.b • a'l.xi; ' 



;get NDataBits (NextSBPosj. 

;add to any scaling info bits 

; & set offset SubBandPos [SubBand; 

;bits to add for next index 

;b>*>TestBits ■ OldTotBits 

;get NDataBits [SBPos [SubBand; ] 

.-TestBits '•>«' current bits 

; & put new position in proper re: 
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; tci 
; (O 
;.(c; 
'; (c) 



add 



yi.c 



cmp . 



-100- _ 

y : <AvlBits,,a ; -TestBits. *» next aliocaticr. bits' 
; & gets BitsAvaiiable 



Lf { TestBits > BitsAvaiiable ) { 
AtLimit » 1; 
■ continue; 



} 



b, a b,y :TotBits 
< bita 8C C 



rsee if room 4' save allocation . 
; no room, set as AtLimit and cor 



Lf this is the final loop, skip the next. test and allocate the bits 

jset #FINAL_PASS,y: : <stereo,_bita_7C_C- ;pass skips below mask check 



ici 
tc) 
<c) 



move , 

move 

add 



move 
3 set 
cmp 
jle 



bita 6C 



SMR » SubBandMax [SubBand] 

- MinMaskingDb [SubBand) 
MNR « SNRCSubBandPos it ion [SubBand] ] - SMR 



x: (r3+n3> ,yl 

x: (rl*nli , a 

yl,a y : MNRmin, b 

< bita 90 C 



;get SNR [SubBandPos [SubBand] ] , 

;SBMsr [SubBand] - Mask-to-Signai . : 

;add Sig-Noise ratio; 

; & get MNRmin for below 

;below Masking, go. to take out partially 



a.yl ; save MNR 

aFIRSTjriME,y:<stereo,_bita_60_C ;if first, 
yi,b ~ - ~ ; MNRmin - MNR 

< bita 100 C. ■ 



save as minimum 



move 


ho , y :MNRinx 


; MNRinx - NewXndex; 


move 


xl . y :MNRpos 


.MNRpos * NewPosition; 


move 


y :<TotBits,xl , 


;get the allocation of bits 


move 


xl,y:<KldBits 


;save the allocation of bits 


move. 


y :< count ,xl 


;get current sub -band 


move . . 


xi,y:MNRsb 


; MNRsb « SubBand; 


move 


yl,y: MNRmin 


; MNRmin • MNR; 


bclr - .. 


# FIRST TIME,y:<stereo 


; clear FirstTime flag . 


j.«P 


< bita~100 C 





;we are "on the final allocations passes after all sub- bands 
; are driven below the Global Masking threshold 



bita- 70 



move 
move 
move 
bclr 
■ jmp 



V:<TOtBitS.X0 

nO,x:lr5*n5J ■ 

xl,x: lr4*n4 ) 

#F IRSTJTIME , y : <stereb 

< bita~100 C 



.-save new TotBits 
; save new sub-band index 
..save new allocation positior 
; clear FirstTime flag 



_bita_3C_C 
" bset 
bset . 

>ita_50_C 
~ .Bset 



.'■ # ALLOCATE LIMIT , x : (r6+n6>. ;sev the completely allocated bit 
#HEARING_LXMIT, x: (rS*n6J ;set the completely allocated bit . 

# MASKING LIMIT, x: Ir6+n6; ; set the reached global masking bit 
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. move 
move 

.. . move . 
move, 
move 
move 
move 
move 
move 
move 

bita 13C C 



y : <ccunt , r7 

#16-, n-5 
(rl.l - / 

:r5) * 
(r6l* 

trO) *n0 . ; 
(r7). * 

r7 # y : <count 



;get current sub -band, to increment 
; now update Allowed -c r.ex: suc_band 

; SBMsr array 

;SBits. array 
. ;SBPos array 

:;SBIndx array 

;AtLinu.t array "v 

.•advance Allowed to next sub-band 

.•increment the sub -band counter 

;save hew sub -band number 



; At- this point the fcl-lowing registers, are in use .' 

y:AvlBits - # of bits available 

y : MNRsb » MNRsb 
;.. . y : MNRMm » MNRmin .• . 

; We test now to see if this trip thru the loop produced any changes 
; and if not, we have finished the bit allocation for this frame., 

; (cl if I FirstTime ) . 
;ic) -.return;-;. 

' j.clr #FIRST_TIME.y:<stereo,_bita_140_C ;not 1st. alloc to selected 

jcir fcFINAlTPASS.y : <stereo,~bita_160~C ,;not final, set 1 more loop 



/finished, end the loop. and go to exit routine 
c bita 990 C 



enddo 
Dnip . 



_bita_14C_C .; ■ ■ . 

; test, flag all candidates are below masking threshold 

. jset; #FINAL_PASS,y:<sterec t _bita_170_C ;if final, allocated already 
.restore the channel array addresses 



move 
move ' 



y:BPosAdd, r4 
y:BInxAdd,r5 



SubB and Index (MNRsb] 
SubBandPosition [MNRsb] 

move y : MNRsb, n5 

move n5 ,n4 

move y:MNRinx,xl 

move v xl.x: (r5*n5) .... 

move '. . y:MNRpos,xl 

move . xl.x: (r4*n4 i 

move. y :<HldBits.xO . 
jmp .-• . <_bita_.17Q_C 



;set. register of SubBandPosition array 
;set register of SubB and Index array 



AllowedPos it ions [MNRsb] [SubBand Index [MNRsb] } 

• • ". ; MNRsb : 
; MNRsb -•• 

; get the saved new index 
.; update the SBIndx for selected sub -band 
rget the saved new Allowed position 
;updat'e the SBPos for selected sub-band'. 
. ,*set the new bit- allocation ■ total .cnt' 
.•continue major loop 



.-now lets just allocate what ' s. left now that all are below mask 
bita 160 C 

"."*' bset • ;- #FINA1 PASS.y i<sterec just loop now • 
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_bita_i70_C 

". • "; " nop 

>ita_990_C. 

move 

• move-' 
sub ; 
move 

.. rts ■' 

; insert value 1 1. 
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xO ,y: < Tot Bits 
y : <AvlBits , b 
x0,b 

bl, y :padbits 



; : save bits actually allocated 
; determine number of bits padded 
;bits available minus total allocated 
;saye count of unallocated audio bits 



;This routine 1 orders the table of values per sub- band 
; that are to be de-allocated as needed. The table is ordered in, 
? descending sequence that makes the 1st entry the one that can best 
; afford a deallocation. • 



ron entry: 



X;(r0+n0) -the current value to be inserted \ 
r2 «,the sub-band number to. be inserted 

y:MNRsub * current count of entries in tne ordered deallocation tables 
n3 » address of MNRval table 
n4 « address of MNRsbc table 



;on exit : 



y : MNRsub * incremented count of entries in ordered deallocation tabies 



a « 
b « 
xO 
yO » 
r3 « 
r4 ■ 

org 



destroyed 
destroyed 

■ destroyed 

■ destroyed 

■ destroyed 
-destroyed 

phe: 



insert_value 

;get the current value to be inserted and set upo the start into 
; the ordered table of values and the assoicated table of sub-band- 



move 
move 



x: (rO+nO) , a 
y:<MNRsub, b 



;get the current value to insert 
;get current count of table entries. 



If this is the 1st value to be inserted ino the table, skip the 
search for its place and enter this as .table entry no. 1 . 



tst b - #0,r3 
jeq ;<_insert_50 . . 



;see if this is 1st entry into table 
; & set to 1st entry in MNRval table 
;if 1st,, skip following table search 



rsearch through the table of entries so far established looking. for where. 
;to store this current value 

.dc' y :cMNRsub,_insert_20;. 
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move /' x; :r3-r.3. : . x0. 

cmp . ' ' xO, a 

jit <_insert_10 ■ 



,-get the table val< 



re for 



omparisc: 



; against the new value tc .be inserted 
;if less, .value .is further down table 



;when the new value is greater than cr equal tc the table entry, ' ■■. 
; this is its place in the table, we. may have to shift the following. 
• table entries in order to enter this new value ■ •. : " 



enddo 

_insert_10 

. "move 

insert 20 



insert ' 2 0 



;stop the y:MNRsub do loop : . 

; see if; the table must be shifted 



; ; try the next table ' entry. 
,*end of yiMNRsub do loop 



it this entry number " '.its place in. the' table) equals the . count 
this entry will be the new LAST entry m the table 



move 
cmp 

jeq 
move 

. jmp 



/r3 .xO 

x:.b ; 

<_insert_25 1 
c^insert^Sy 
bl..r3 ' ~ 
•< insert 50 



;get its place in the table, to .compare 
;its place tc current table entry count 
;if less, we have to. shift the table 
;if eq, entry is appended to the table 
;?? let's make sure we use last entry 



insert 2S 



; we need to shift the subsequent entries in the table down one and 
; insert this new -sub-band value . 



move 
mcve 
, move 
move 
move 
sub 



move 
move 
move 
move 
move 
move 



bl.r3 
bl,r4 
(r3 i *n3 
:r4Wn4 
<r3) - 
x0,b 



(r4) • 



/establish the curr table ends 
;for both MNRval and MNRsbc . 
;set r3 with addr of MNRval end 1 
; set r4 with addr. of MNRsbc end - 1 
.-back cf f 1 to get last MNRval entry. 

table entries tc shift 



.-r.umoer 
; & back cf i 



get last MNRsoc entry 



b,_insert_40 

x : i r3 ) * , y0 
yC,x: (r3> - 
x: tr4i */y6 
yO.x: ir4) - 
(r3) - ... 
ir4)- 



insert 4 0. 



; shift each" down 1 position in tables 

; get curr value and mcr. tc rec addr 
;put vaiue i entry down & back up l 
;curr sub-band/chan & incr -tc rec addi 
;put value 1 entry down & back up 1 : 
;back up one more entry table : MNRval . 
back up one more entry table MNRsbc 

; end cf b do loop 



;restcre entry location tc receive value and sub -band 
mcve '• xC , r3 



_msert_50 . -\- 

.-insert the current value at -this location in the ordered table." 
; als: insert the sub-band number 



move 



"g positicr 



the MNr.srt tacle 
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move. a,x: fr3+n3). . ; enter sorted value •• • 

move z2 . x : ( r4 +n* ) .-enter the sub- band number 

; increment the count of 'entries' in the ordered deallocation tables 

move y:<MNRsub, r3 .'■ ;we need to increment entry counter 
• nop 

. move . Cr3) + ■ . '■ :. 

move. r3 v y:<MNRsub . ;save the new: table . entry count 
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; (c) 1995^ copyright' Corporate -.Computer Systems, Inc. All rights, reserved. 

\ \DGCST\botsallo.asm 

title / 'Initialize bit output' - 

; This routine is used to initialize the bit output routines, 

include. 'def. asm' 
include. ' box_ctl .asm' . 

section lowmisc '■ 
• . xdef sccurwd 

org . - yli ; , •; 

stbitsallo_yli 



- sc 
curwd 



ds. 
ds 



; shift. count ' . 
; current word 



eadbitsallo_yli 
endsec- 



phe : 



i ;b ~ CP ° 0l This subroutine determines. the. number of bits available based 
on the output bit. rate and the type cf framing 



';The table below is based on a Sampling Rate at 46,000 /sec and shows _ 
;the breakdown of bit counts based on bit rate o/p and choice of frame type 



Mono 



;kb 


frame 






; rate 


bits 


fix 


avail 










•384 


9216 


136 


9060 


,-256 


6144 




6003 


;192 


: 4608 • 




4472 


;128 


3072 




2936 


;112 


2688 




2552 


; 96 


2304 




2168 


; 64 


1536 




1400 


; 56 


1344 


136 


1208 


. *• 





Full; 
Stereo 
fix avai 



Joint Stereo — 



5920 
4384 
2848 
2464 

2080. 
1312 



4 -bound 


8 -bound 


12- bound \\ 


.16- bcund 


fix avail : 


fix avail 


fix 


avai. 


fix avail 












1S2.: 9064 


168 9048 


183 


. 9033 • 


195 9021' 


5992 


5976 




5961 


5945 


. 4456 


444C. 




4425 


1 4413' 


2920 


. 2904 




2889 


. . 2877 


2536 


; . 2520 




2505 


2493 


. . ..: 2152- 


. 2136 




2121 


2105 


1384 


1368 




1353 


.. 1341 


152 1152 


168 ■ 1176 


183 


1161 


155- 114? 




* * •«* •##*##**•*******♦******•**. 



y:<stereo » indicat ing, applicablation of CRC-16 protection 

. • . 0 • NOT APPLICABLE 

1 - CRC-16 protection APPLIES , 

y.frmbits - the total number of ; bits 'in a f rame at the specified, 
• .. bit rate: - . 



on' exit 
x 
x 



des-~oyed « returned number, of required (fixed) bits- 
2~ destroyed - returned number , of bits available for cit 



anocatior. 
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a destroyed 

rC destroyed 

ri destroyed 

r 3 destroyed 
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org 



phe : 



bitpbpl 



.•Select "the proper . Allowed table:. 

.; ISO:, . 

; 1. for low sampling rates . (24 or 16 K) ; 

.; set ISC Extent ion Allowed table . tAliowed_3) 

2. for high sampling rates (48, 44.1 or 32 K) : " 
a. based on MAXSUBBANDS : less than 27, 

set . ISO, lower bit rate Allowed table (Allowed_2) 

; b: .else, 

; ■ ■ " set-. ISO higher bit rate Allowed table :Allowed_i: 

; CCS: . 

set ISO higher bit rate Allowed; table (Allowed_l) ■ 

; low sampling rate:' ■ 

test the. frame header ID bit (if 0, it's a low sampling rate frame! 



move . 
• nop 
jset 

move 
move 
move 
jmp 



#smplidbit,rO . 

#C,y: irO) ,_bitp_000_A 

#A1 lowed 3,rO. ; 

#skftbl_3,rl .. . 

#>15,xl 

< bitp CIO A 



; addr of frame header ID bit ( 0 » low> 
; (1 - high) 

;if high rate, select Allowed table 

;addr of low sampling allowed table 
;addr of the BAL bits table 
: maximum position Allowed_3 table 
;go to store Allowed table address. 



_bitp_000_A 



;hiah sampling rate: 

; set the proper Allowed table address based on working MAXSUBBANDS (y:<rnaxubs: 
; if less. than 27/ used table 2 



move y : cmaxsubs , xO 

move #>27, a 

move. #>17,xl 

move : #skftbl 1 . rl . 

cmc . xQ , a ~#Ailowed_l . rO 



jle <_bitp_010_A 
; select the lower bit rate Allowed table 



;get current MAX5UB BANDS 

;to see which of 2 tables applies 

;maximum position AIlowed_i table , 

; addr of the BAL bits table 

;see if need the low bit rate table 

; k set up as AliowedVl table 

;Allowed_l table applies 



move #Allowed 2.r0- fc 
move #skftbl_2.rl 
move . «>16 , xl 



; addr of the BAL bits table 
;maximum position Allowed_2 table 



jDitp_sic_A . 

;set the address of the selected Allowed table., 
.•set the address 1 of the selected. BAL' s bit table 
.-set- .the rr.aximur. position code 
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. ; move • r: ,y:AUvAdd 
move " •" rl.x:skftbl . 
'.move xl.y:MaxPos 

; determine the bits required fcr ancillary data (taken from audio pit" pool:-.:-' 
;. start with bits required to store, the padded data byte count in frame 

move #>BITSF0RP ADDING, b .-bits in the padded byte count 

move y:maxbytes,yl ;get max bytes at baud rate 

move y:<bytecnt,a ;get current count of bytes received 

cmp yl.a #>BITSFERBYTE, xl .see max versus current count 

; & set multiplier • 

jge 
■ move ■ 



< bitp 00 ;if mere than max, can only .send max 

a7yl - . ;less than max, send all received. 



_bitp_00 • . v 

; multiply the bytecount for bits per. byte. ' 

• mpy' ' ' xl,yl,a ;to get the required bit 

asr a yl ,y :<bytesf rm ■; shift integer result 

set byte count for framing , . 

' ■ • move- . a 0 . a 

add a,b ; add to the count of bytes 

. move ;. . b,y :ancbits ;set ancillary data bit count 

;set the number of fixed bits used, and the number of available bits for audio 

c i r a . tfO.xl • ;0 a as accum, zero CRC checksum bit cnt 

;set the address and bit offsets to identify the end of the current full frame 
• and set the end cf. the formatted frame 

move y:<frmnext.rl : .-address for start the next frame 

'move .y:outsize.ml - .-circular ctl addr the framing- o/p buf 

; set the fixed bits for the- audio frame 

move «>NSYNC,xO ; number of SYNC bits 



add 



xO.a , #>NSYST,xO ;plus number of bits in frame system hdr 



add xO.a - x:skftbl,rO ' ;get base of used bits, table 

-; c l- #PRCrECT,y:<stereo. -bitp 35 .skip checksum bits if no protect 
move #>NCRCBITS,xl/. . Tadd applicable bits for the checksum 

_bi^p_j5^^ xl. a . • ' ;add checksum protection. . if any 

. .-account for the bits required. for protection encoding 

move #>RE£D SOLOMON BITS.xl ;bits required for Kadir's routine 
'add xl.a ., ~ ■"■ ' " ; »* acid protection bits to fixed bit cnt 

•accummulate the bit allocation bits for standard number of sub-bands 
;. included in. the frame fcr the left- and right ; if applicable) 7 ;. 

..." do y: <maxsubs,J:itp_5G; 

.•accumulate for the channel 
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.. move 
add ' 



X: (rc: * , Xl 
xi, a 



_bitp_5C 



.move '• a.xO ■ 
move y:.fnribits ( b 



.-return fixed bits '"' 

.•total size cf frame" ir. bits- 



.•subtract -any bits required- for ancillary data. 



move yiancbits.yl 
sub . . yl » b 



_bitp_8Q 



sub 
move 



a. b 

b. x2 



; total bits - fixed bits • 

; return number of audic daca bits' ava: 



;now determine. word and' bit offsets for, the 'end cf the audio frame 



add 
add 

move 



_bitp_50 



cnsp 

jlc 
• sub 
jmp 



bitp 100 



move 
move 
mcve 

rts 



yl;b 

a,b ,,#>24.y: 
y:<frmstrt .rl: . 



yl,b 

< bitp_100 
yl.b " (rli * 
<_bitp_90 



rl. y :audendw 
e, y : audendb 
y :<linear,ml 



.•restore bits for ancillary data 
.•restore to full. audic frame size 
;' 4 set number, bits in a word 
.•count words to last word in frame 



,*see if reached last word : 

;if so, set eoframe word & bit offsets. 



;tc identify end cf audio part of frame 
;biz offset end of audic part cf frame 
.-reset to linear buffer control 



;bitsallc; 



"This subroutine starts the bit allocation of values into the 
frame buff er values are inserted by setvaiue ( ; and by, ait free;) be.ow 



;. on exit 

. ■■ V * cSC ■ * 0 

\ - yiccurwd - initialized (0!' 1st word in frame buffe: 
a » destroyed 



bitsallc 

■ move #0 , a 

move a. y : <sc 

move a,y:<curwd 



.•initialize, the shift count 
.•initialize curwd tist: bit in op frame. 



' page ■ '•• ' " •": ; 

;^ 1ISfre T-ls routine flushes the. last bits to the output buffer 



address cf next word the cutpu: 



i r ane . buf f er ' '• x ner,: 
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or. exit ; . 
. a « destroted 

; b • destroyed 

; . xo -destroyed \ 

xl • destroyed 
\ yO - destroyed 

" ■ ■. ■ yi - destroyed, 

: section highmisc 
xdef audendw 
xdef audendb 

org.: ' yr-e: 
stiitsallc_yhe 



audendw cs 1 /address cf end of audio portion of. frame 

"*endb dl : 1 ; bit offset to end of audio portion of frame. 



audendb ds 

er.db- 1 s a 1 1 o_yhe 
endsec \ 



bitsfree 

.see if all of the frame has been output totally 
move 



y:<frmnext,xl : : : ;g« address for start of next frame 

move r6,b • next o/ P address of current frame 

vi'h *>24.a ;if addresses « start/ done 

cmp xl,b *>24,a . ^ up for thc nexr - t e S t 

jeq . <_free.90 .-frame done, exit 



; see if the last word cf the frame is to be output next 

\ move y:<frmlast.xl . ;last word address of wrrer.: frame 

^Zl xi b y:<sc.x0 . ;test if adaress - last word 

, cmp xl.to y.oc.xu ^ ^ ^ number cf bits m last were 

' Veq « free_20 ;iast word. chk. block sec number neeaec 

Ycutput last partially formatted data word before zero fill remainder cf frame 

■ sub x0,a #>24,x0 ;get number of bits left 

. *c a #0,x0 ;24 - number of bits left 

'"S3 <!free_05 V , ;not partially formatted :y:s=,« C ; . 

mev* v<curwd,b ?9« current output word 

move y.ccurwa.o Output the necessary # cf, bits 



rep 

lsl 



bl,x:'(r6)V. , .';save 'in the output 



;■■■■> > ^ I xciyi-c the- current, bit of f set / 

_free_05^^/ ' ^ ■■ ;OUC p U - zero, for .remainder cf frame 

_free_l0 ' .' 

Vsee if 'the last word of the frame is to be T. output, next -,: v; 

'"'"Js\w V' ; next o/p address of current frame 

•. trove - . rt.b., . . ■ 
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xl.b 

< free 20 
al.x: Ir6)« 

< f ree_X0 



;'see if last word, next 

..•last word, chx block seq r.ussber needed 
; output frame word and :ncn\er.: addr 
[•continue to flush the buffer "... 



Sree 20 



move 

move 

move 

move 

sub 

sub 

tst 

jl« . 

move 

3 sr ' 



*o,yO 
*0.x0 
#>24.a 
y : <SC,yl 

yl. a 
xO.a 
a 

<_frce_90, 
a,n4 

<setvalue 



; init with' zeros ■ to pad last wcrd 
•init with no bits req for seq number 
■bits in the word 

,-get current formatted word offset 
; bits remaining. 

;bits required for block seq num. 
] test if any zero bits to output 
;if none* ; try the block seq hum 

.number of bits to output 

;pad word with zeroes as needed 



_free 9C 

■ rts 
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. ' ." . .• ■ •' : ' . -111 r . .'. • • • , . " - \ . r ; 

■ opt • fc,mex ' ' '.. 
| ;c) i995. Copyright Corporate Computer Systems, Inc. All rights reserved. 
\DGCST\xmicrmus . asm: Reed Solomon version for. OigiCast \ 
. • title: 'Micro MUSICAM Transfer .Main' ' 
; ;7/23/92i xmicro.asm micro MONO version of XPSYCHO and XCODE combined 

include *■' def. asm' 

include ' . . \common\ioequ .asm' : 

include. 'box_ctl. asm' 

section lowmisc 



xdef 


word_ out 


xdef . 


word_in 


xdef 


s tarty li 


xdef 


nct_appl 


xdef 


max subs 


xdef 


oldccs 


xdef 


usedsb ; 


xdef 


stereo 


xdef 


cmprsctl 


xdef 


oprptr 


xdef 


butrous . 


xdef 


outsize 


xdef 


f rmstrt 


xdef. 


frmnext 


xdef 


frmlast 


xdef 


timer 


xdef 


timeout 


xdef 


qtalloc 


xdef 


ipwptr 


xdef 


. polyst 


xdef - 


nraskf reqs 


xdef 


maxcritbnds 


xdef 


linear 


xdef 


junk 


xdef 


endyli 


xdef 


dbgcnt 


xdef 


limitsb 


org 


yliV ; ■ 



stxinicro_yli 

word_out 
,word~in 

startyli 

. not_appl 

/ maxsubs : ds : 
oldccs ds 



ds 

ds.. 



ds 

1 
1 



1 
1 



.•applicable hardware output (leds. switches) 
•applicable hardware input (switches, lines) 



; satisfy non- applicable hardware settings 

; working MAXSUBBANDS for sample/bit rate 
;encode MPEG-ISO or old CCS CDQICOO'.s ■ . 
- ■ o - MPEG-ISO 
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; 0 




; l 




?bit 


1 


; ■ 0 


B 


;■ 1 


« 


;bit 


2 


; ..o 


■ 


; 1 


a 


;bit 


3 


; full 


i v 

; : 0' 


s 


; 1 


s 


;bit 


4 



-112- • •'. : ; v . 

; •. 1 - old CCS CBQiOOO' s ' . 

usedsb ds . 1..: ;number of used sub-bands 

stereo ds ■ -"• 1 ■ ;y:<stereo « flags:." 

;bit 0 means stereo vs mono framing ■ 
•stereo framing ' ' 

mono framing 

indicates left vs right channel .. 
looping thru left channel arrays: 
looping thru right channel arrays 
indicates joint stereo applies 
NOT joint stereo framing type 
IS joint stereo framing type . 
indicates curr frame .upgraded to 
stereo by joint bit allocation 

(if joint stereo applies) . 
normal joint stereo allocation 
FULL STEREO allocation 
indicates the stereo intensity " 
: . ; sub-band boundary has been reached 
; (if joint stereo applies) 

; 0 - NO sub-bands still below 
; . ' intensity boundary 
;-■'.,,* ■:.!',.« sub-bands above intensity ' 
boundary 

;bit 5 is FirstTime switch in a loop : 
; thru the bit allocation 
; ;.' 0 -cleared if any allocations 
-''''•.; were -made 

- ; 1 * no allocations made: to any 
•• ' ; '•• • • • ' sub -band • • • 

;bit .6 indicates a below masking 

threshold allocation pass 
; 0 « some sub- bands not below mask 

- ; 1 • all sub-bands are below mask 
. ;bit 7 indicates a below hearing 

threshold allocation pass • 
; 0 « some sub-bands not below hearing . ; 
. • threshold 
1 « all sub-bands are below hearing 
-.; threshold.- . 

;bit 8 indicates final bit allocation . 
; passes to use up any available bits 
; 0 - not yet 
. ; 1 -'allocate remainder in bit pool . 
. ;bit 9 indicates limit of sub-bands requiring 
;. at . least one position has been reached:. 

0 - not yet, 1 • limit reached 
; bit . 10 indicates maximum limit of sub -bands 
; that are to be allocated has been reached:. 
0 «. not yet; 1 - limit reached 

cmprsctl ds '•' 1 . .; control flag for CCS compression: 

• ; .bit 0 - application: ■ 
; v ; ■ 0 - ISO standard 

■■ .•• '1 - CCS compression applies' 
oprptr ds '. 1 ;read pointer, into output frame buffer 

outmus ds 1 : ; number cf words to read in , 

outsize ds 1 V ^ ; circular buffer ctl frame o/p buffer 

frmstrt ds - ' 1- .-starting addr of current ■ frame .' 

frmnext ds.' '■' " 1 ; starting addr of next frame." 
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f rmlast . ds . ■ 


.."■I. 


timer ds 




timeout ds 


; i -- 


qtalloc ds . .. 


i . 


ipwptr ds. ..- 


. i 


polys t ■' ds 


'■ l ■ 


nmskf reqs 


.: ds 


maxcritbnds ; . 


ds 


linear ds 


1 


junk ds . 





.•last word addr of current frame 
;0.024/C. 036 msec timer, interrupt senscr 
;0. 024/0.036 msec timer interrupt exception 
;0. 024/0. 036 msec timer interrupt bit alloc. 
; signal bit allocator to finish up 
;write pointer into input inpcra buffer 
; addr of the polyanaiysis start 
;NMSKFREQS based on selected sample rate 
; MAXCR I TBNDS based on . selected sample rate 
;reset mX as linear buffer control .. 



endyli . 

dbgcnt . dc 
limitsb dc 



i debug 



: 1 1 idebug counter of flag 

; LXMI7SUBBANDS ; sub -bands req at least l allocaticr- 



endxmicro^yl i 

.endsec ' . , 
section ptable 



xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
• xdef 

■ org 
stptable_yli 

ptable 



a jpsych 
bjsych 
c_psych 
d_ psych 
e_psych 

•fZpsych - 
g_psy ch . 
hjsych 
i_psych . 

. j_psych -\- 
k_psych 
l_psych 
m_psych 
njpsych . 
ojpsych 
p_psych 
q_psych 

■ r_psych . 
s_psych . 



.ptable'- 

a _psych, b_psych ' . • • " • 

c_psych , d_psych - • ' • . 

e^psych . f jpsych f g jpsych 

h^psych, i_psych, }_psych . t. w 

k psych, 1 psych, m_psych, n jpsych, o_psych,p_psych .. . 

qjsych, r^sych, s jpsych, t jsych, ujpsych, v_psych. wjsych,x_psych 
y psych , 2 psych . . "■ . 

zllpsych. z2_j>sych, 23 jpsych. z4_psych, z5_psych. z€_psych 

yii: 



;A curvai- 9 dB 
; B curval- ,3 dB/Bark 
;C curvai- 5 dB 
; D curvai- .3 dB/Bark 

; E curval« 1"? dB/Bark 

; F-'Curvala '/.4 1/Bark 

;G curvai- .6 dB/Bark; 

; H curvai- 17 dB/Bark / ■ 

; I curvai- X7 dB/Bark 

; J curvai- . .1 1/Bark 
;K curvai- 0.0000000 
;L curvai- 0.0000000 . 
;M curvai-' 0.0000000 
;N:. CCS compression- NO < . 3 >« YES 
;0 curvai- 0.0000000 

;P curvai- .0.0000000 

;Q curyal- .0,0000000 

;R curvai- .0.0000000. 

' ;S curvai- . . 0.0000000 



known 


i as IRT 


dc' 


0. 


0467146 


dc 


0. 


0498289 


dc 


0. 


0259526 


• dc v 


d. 


0498289 


dc 


0. 


0882387 


• dc 


0. 


4000000 


■dc--: 


0. 


,0311432. 


dc 


0. 


,0882387. 


dc 


0. 


.0882387 


dc 


0. 


,1000000 


-.dc. 


0, 


,0000000 


dc 


0 


.0000000 


dc 


0. 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc. 


0 


. oooooo.o 


dc 


\-0 


.0000000 
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t_psych 

v_psych 
. w^psych . 

x_psych ,"' 

yjsych 
' z_psych 
■ zljpsych ■-. 

z2_psych 

z3~psych . 

z4_psych 

zSjsych 

2€_psych 

endptable_yli 
endsec 



dc 


.0 


.0000000 : 


; 7 curval- . 


0. OCOOOOO 


dc 


c 


.oooocoo . 


;U curval* .'. 


0;0O00OOC: 


dc 


c 


.ocooooo 


;V curval" 


0.0000000 


dc 


c 


.0000000 


; W curval * 


0.0000000 


dc 


c 


.0103810 


\ ;X curval - 


2 dB/Bark 


dc 


0 


.0259525 •.. 


;Y curval-.' 


5 da /Bark. 


dc 


0 


.0415239 


. ;Z curval-. " 


8 dB/Bark 


dc 


0 


.0000000. 


;21 curval- 


" 0.0000000 


dc 


0 


.0000000 . 


;22 curval* 


; 0.0000000 


dc 


0 


.0000000 . 


:■' ;Z3 : 4 to 30, 


« used sub -ban* 


dc 


0 


.0000000 


;Z4 curval - 


0.0000000 . 


dc 


0 


.ooooooo : 


. ;Z5 curval- 


o. ooooooo 


dc 


0 


.0000000 . 


;Z6 curval- 


o. ooooooo ; 



, section highmisc 
xdef startyhe. 



xdef 
xdef 
xdef 
. • xdef 
xdef 
xdef 
. xdef 
' xdef 
. • . xdef 
xdef 
xdef 
xdef 
xdef., 
xdef. 
xdef 
xdef; 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
. xdef 

xdef 

xdef 
xdef 
; xdef 

• org'. • 

stxmicro_yhe 

startyhe . 

bitrate ds 



bi crate 
frmrate 
smplcde 
smplrte 
: smplidbit 
bndwdth 
frmtype 
opf rtyp 
baudrte 
oputcde 
f rtnbits 
f ixbits 
audbits 
ancbits : 
stintns 
b_i 
f map 

ThresSLB 
Threshld 
cb 

g cb 

dbaddtbl 

plctmn 

endyhe 

sanding 
bitrates . 
baudclk 



; bit rate code for MUSI CAM frame header 
; sampling rate 48 K or 32 K;. 
: ISC and old CCS CDQiooor ■ 
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frmrate ds 



smplcde ds 



smplrte ds 



bndwdth ds 
frmtype ds 

opfrtyp ds 
. baudrte ds 



ds 



; " 3 (0011) « 55 KBits 

. 4 (01CC). « 64 .KBits '-. T ' .... 
.-..sampling rate 24 K or 16 K: . : 
; ISO : 

• -7 (Dill) - 56 KBits 
8 (1000) » 64 KBits 
;• Old CCS CDQ1000: ..... 
; . . 3 (0011) « 56. KBits ■ : . 
; .4 £0100) - 64 KBits . 

;overali frame bit rate as to hardware 
";. . - switches. (1 bit ) indicate 
; bit . rate sets numb words in a frame: 
; ■;. ■ 0 - low Kbit rate 

1 - high Kbit rate 
; sample rate code in MUSICAM header: 



ISO: 



cputcde ds 






i rmbits ds . / 


.' : ■ v. •' • 




fixbits .ds. - 


.'. 1 . 




audbits ds 


:.:-l • 




ancbits ds 


. . 1 




.-stincns ds 


1 




b_i . . 


ds 


* 


fmap \ 


ds 




ThresSL3 . 


ds 




■ .-Threshld . .. 


ds 


1 


cb - 


ds .. 


■ * 


:g cb:' 


• ds ■ 


• 1 


dbaddtbl 


ds: 


1 


.pic'crrr. V ds , 







00 
01 
10 



44 
46 
32 



IK or 22.05 
K or 24 K 
K or 16 K 



old CCS.. CDQ1000: 



00 
■01 
10 

11 



16 
46 
32 
24 



; PCM data sampling rate: low vs high rate 
; depending. on flag- in -box ctl . asm that 
; indicates the pairing .(16/24, 16/32, 16/48,. 
;. . 24/32, 24/48 or: 32/46) 

; ■ switches (1 bit) .indicate . 

0 ■ 16000, 24000 or 32000 
\ . 1 • 24000, 32000 br. 48000 

;hdr id bit: ■ ■'■ 
; ISO: 

; . 1 for 44.1, 48, and 32 K sample rates.' 

0 for 22.05, 24, and 16 K sample rates 
'' ] old CCS CDClbOO : " 

'1 is always used with special sample .. 
rate codes m the header vabove; 
•code for setting sub-band limits 
; cip switches (2 bits) are sec to:. 
..- ' " 11 « (3) mono (1 channel) 
'.•current frame. type after' bit allocation , . . 
•ancillary data baud rate 
Vtype of . cutput coding: MUSICAM. vs 3"22 
;-. - switches (1 bit) "indicate ■ 
; . 0 - MUSICAM frames 

.; . •-• 1 » G722 data 
; bit's in the audio portion .of frame . : : 
;bits required before audio data bits 
; number of bits available for audio data 
;bits required for; ancillary data current frame 
■ /intensity subband boundary code 
;addr b i. table for low or high sample race 
;addr fmap table for low. or high sample rate 
; addr ThresSLB table' for low or. high sample rats 
;addr Threshld table for low or high sampie. rati 
;addr cb table for low or high sampie rate 
;addr a cb table for low or high sample rate . 
; addr DbAddTbl '• 

.•successive phase lcck : detect high . center mair. 
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endyhe .' 
.•table of sampling races. 

. SAMPLERATES • . : 

table of- bit rates. '. • : • . 

BITRATES . : ... / " 

; baud race table for ancillary data 
•;'// BAUDCLK .'• \ /' 

; endxraicro_yhe 

endsec . 

org ' phe : "- 

■scare 

; The external wait state is sec to 1. " This allows the HCT541's to. 
] put their data on the bus in plenty of time. . ■ 

movep «$OQ01,x:<<M_BCR ;set all external io waic. staces 

; set dsp56002 clock to selected MHz (PLL Control Register) 

..; XCODE_M_PCTL . 

; PORT C Assignments 

. ; s ■ ssi pore.- • 
i « input port 
o » output port ■/ \ ( 

XCODE PORT C M PCC ;set port C control register . 

XC0DE~PORT~C~M~PCD " ;set output data to port .C . 

XC0DE~PORT~CjCPCDDR ; set, port C data direction reg 

; initialize the ssi port for the ad converter , 

XCODE SSI M CRA , ; set ssi era register 

XCOpE~SSI~M~CRB ?set ssi crb register .. 

. ■ ; initialize the sci port for tty . 

XCODE SCI M SCR - ' ; set sci. status control register . . 

■ • PORT B Assignments . 

\ 14 13 12 - 11 10 9 8 - 76 5 4 - 3 2 1.0;. 

• ; ' a.. . o i o i i o o i i i i i i i . / 

XCODE PORT B M JBC ; set B control register for general 10 

. XCQDE~ PORT~B~M_PBD ;. . ;set the default outputs 
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" ' V XCODE.POR7 - 3.M_?BODR. \ ; set 9 register airec^cn . .. 
initialize the host interrupt vector ^ . 
: INIT_HOST_VECTORS_CD 

restart' ■ . ■ " : ^ ■ -■■ 

; set the" interrupt . for' host ' interrupts 
* HOST set to 2 ... 

«" tdo -se~ int priorities and edges 

-.tnovep" • *>sa80C,x:«M.IPR. , ? he in terrupt system 

andi #Sic,mr 

' -.ori ' *S23,mr ' ' 

. nop ' : '' • :• ■ ' 

nop' \ ; . ". . '• / ' •.. /•.; . •• "• • <• .' 

' -nop . . • . • 

:c:e ar the analog to digital . convener t= restart calibrator. -■ 
CLR_ADC_RESET 
y /disable che ancillary "^ta^ received interrupt; • 
bclr #M_RIE.X:<<M_SCR 
^ ■ ^^^ : ; initiai-e leds.>s off - . 

. move'' b,y:*word.out • . . 

**** # 

***** «vr* TS ENCODED AND PUT INTO A HIGH MEMORY 

; TEST NOTICE THAT THE D eS DATA E ^E KME HHXLE THE PROGRAM 

I a^&^l^ipSS OF A WOW IS IN ERROR , 
.•TEST DATA ■. 

•WtiaUze the buffer to be encoded for testvr.g \ 

<nd'cate no problem with Reed Sciomer. 
OFF REE2_SOL_LEC_CD ^ w cf cne encoded frames 

. move #framebuf ,ro •- n > es - va i ue accumulator 

clr a : , ,*>l.xO ., . ;^ r | 0 -2ncremer.t » the test buffer • 

;S et the frame buffer. « sequentially incremented values 

•. " do "• • #96._initl . , .' 
". add ■ ■-■ xO.a 

move .al.x: (r0)+ 

initi - .: : V • • ■ ' " • 

; ds the reed so lomon encoding on the test frame, buffer ,, , : 

■ M - »\ ' -i/p pointer of buffer to.be RS-CO^E. 

. : move tframebufvrO .. buffer is circular - ,2 frames 

. . move , «bf,mO _ ; o/p pointer for -COOED data to be.s.ore 

. move #reedsolbuf ,r. 'encode via reed selomon 

; jsr <nev_rs V . 

■;• ; test if .the. reed solomon. codec worked or F? • 
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neve ' treedsclbuf , rO 
mcve #RStest. rl 



,-o/p pc inter for CODED data to be stored 



;pc:ncer,lcr the verifioa 



:afcle 



; verify that the reed sclomon coded values are correct 



_Same 
RS Chk 



*96,JlS_Chk . 
X: trO) *7x0 
x: (rl) +.a 

■ xO,a- ' 
c_Same 
6n^REED_S0L_L£D^CD 
enddo " 
nop 

nop ;•• 



do . 
move 
move 
cmp 



.; Get current coded, data output 
;Get pre coded look up. table value 
.•compare 2 values 
; If SAME No problem 

,* indicate no problem with Reed Sclomon 



ON ALARM LED CD ^ . - . * ilight alarm led indicator 

TST SET ALARM_RE1AY CD. set ied_0 ;unless already set, 

SET~ALARM RELAY CD ~ . " " ~,-set the alarm relay line on 



set led 0 
" SET_LEDS_CD 

. I NTERRUP7_ HOST_CD ■ 

; Clear ail of the y memory 



clr 




move 


asffff.mo 


move. 


#startyli,rO 


move 


# i endy 1 i - s t ar ty 1 i ) , r 1 


rep 


rl 


move 


a,y : (rO) * 


move 


#startyhe,rO : 


move 


# (endyhe-startyhe) , rl 


rep 


. rl • , 


move . 


a,y: trO* 



; inform the host 



; value to set x memory to 

; just in case, set to linear buffer 

;set starting address low yrmemory 

;set loop. count 

; clear it 

•set: starting address high y-memcry 
;set loop count ■ 
.-clear it 



.set linear buffer control../ 

move . : mO,y:<line.ar 

se* the CRC-16 protection checksum as applicable and set the : 
CTC-ll checksum mono frame bit count for the old ISO method: . 
* h*»d*r b'ts covered by any type or rrame * * 

' plus bits for "e left channel also apply to any type. of frame 

] b . save, old ISO bit count, for this frame 

■ >,„. t protect y:<sterec ;checlcsum protection applies :i-YZS.: 

« !!ac r ; S A*C8C BITS B.a .-header plus one channel cits , 

\-V:-5? - a^crc^P V/ .I"-.' :. ^ , the ° ld:SC CTC * 16 b " 
• check the switches tc determine bit race, and framing type 
.-get the external switches to determine: 

I. ^^ludircom^ressfonio :forma= for output .MUSICAH/C^ , 

-if MUS1CAM, the frame bit rate 
;.- if MUSICAM. .ancillary data baud rate 



get_sw:tchss_cd gsws_oi 
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■jsz 

move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
move 



<ge:sws 

x: tstsmpl.yl 
yl ,y:smpirte 
x:tstfrme.yl 
yl ,y:frmtype. 
x:tstband,yl 
yl,y:bndwdth 
x: tstcode.yi 
yl ,y :oputcde 
x: tstrate,yl 
yl ,y:f rmrate 
x:tstbaud,yl 
yl,y:baudrte 
x: tstoccs.yl 
yi.y:<oldccs 
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; se t framing mode led 



move 
move 



y : frmiype. xC 
x0.y:opfrtyp 



;set PCM data sampling race code 

?set type of frame i'monqj to code 

;set bit allocation- sub -band width code 

; type cf encoded, output (MUSICAM/3722 ! 

;set.the frame rate i/p code ■ 

.■set ancillary data baud rate code 

; set MPEG- ISO VS old CCS C3C1CCC ' S 



;set current frame type 
;set current frame type fcr 



/indicate monc framing ten iy.fr ame type, supported). ■■- 

" bset #STEREO_vs_MONO,y:<stereo 
; based on sample rate (low or high) set the addresses for various tables: 



move 
tst 

. j ne 

move 
move 
move 
. move 
move 
move 



yrsmplrxe.b 

b ' 

<_hi_tables 

#b ilcrQ 

#fmaplo,rl 

#ThrSl*Blc,r2 

#?hrhldlo,r3 

*cblo.r4 

#g cblo.rS 



; address of b_i table for low rate . _ 
.address of f map table for low rate 
.-address cf ThresSLB. table for low rate 
; address cf Threshld table for low rate 
; acdress cf cb table for. low rate 
;address of g_cb cable for low rate 



indicate coding at iow sampling rate for compression 
bclr <»LOW_vs_HIGK_SAKP-ING.y:<stereo 
• < set tables . . 



hi 



. 3«P 

:ables 
move 

. " move 
move, 
move 
move 
move 



#b iio,rC 
*fmaplo. rl . 
#ThrSLBio,.r2 
rrhrhldlo,r3 
#cbio,r4 
*g cblo,r5 



; address of b i table for high rate \ 
; address eff map table for high rate 
.•address cf ThresSL3 table for high rate 
;address cf Threshld table for high rate 
. ; address of cb table, for high rate : 
.■address of g_cb table for high rate 



r indicate coding at high sampling rate fcr compression 
bset #LOW_vs JiIGH_SAMPLING/y : <scereo 



set 



:acies 
move 
move 



r3,v:b_i 
rl,y-fn**P 



';set addr of b_i table selected ' 
..■■set addr of f map table selected 
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move 
move 
move 
move 
move 
move 



r2, y :7hresSLB 

r3, y :7hreshld : 

r4.y:cb 

r5 , y : g_cb 

#DbAddTbl_6db.r3' 

r3,y:dbaddtbl 



;set addr of ThresSLB -able selected 



; sec aaar c: 



rhreshl 



:able selected 



.-set addr of cb table selected 
;sec addr of g_cb table selected 



•based on the sampling rate and framing bit rate selected: 
set the sampling rate, code for the ISO frame header 

I set the framing bit race code for the ISO frame header 

set the frame size in words and bits 

• sec the applicable bit allocation control paramecers 



move 
move 
esc 

jeq 

rep 
move 



_smplcds_ 



move 
move 
move : 
move 
move ; 
move 
move 
move 
bclr. 
jclr 



*samplng,rO : 
y:smplrce,b 
b '. ItlCnO 

;<_smplcds_ • 

b 

trO> *n0 



y: <r0)*,x0 

xO . y : smplcde 

y: (r0)*.x0 . 

xO. y :smplidbic • . - . 

y: (r0)*,x0 .. 

xO , y : cmaxsubs 

trO) * 

*4.n0 

ttO ,'y :<cmprsctl. 

no . y : <oldccs , _smplcf f s_ 



.-encoding old CCS CDQ1000 



move 
move 
move 
jset 
bset 



y: IrQ) +.x0. • 
• *smplidbit,rl. ."■ 
xO,y:smplcde 
#0.y: irl) #.no compress^ 
#C,y:<cmprsctT 



,-addr of sampling rate codes, 

.offset to sampling code table 

;test for sampling rate of zero 

; set register to advance thru, table 

;if code is .zero, we're there- 



.•position to ; selected sampling rate code 

; get ISO frame header sampling code 

;.save ISO code to encode in frame header 

;get ISO frame header id bit 

;set ISO frame header id bit 

;get mono channel MAXSUBBANDS 

; set working MAXSUBBANDS 

;step over dual channel MAXSUBBANDS 

;in case of MPEG-ISO 

;CCS compression, is not applicable 

;if MPEG - ISO, skip over old CDQIOGO's. 



;old CDQ1000 frame header sampling code 
;to check ISO frame header id bit 
; save old code. to' encode in frame header 
;if ISO high sampling, ho compression , 
; do CCS compression encoding. : 



_nc_compress_ 
move" 
move 
move 
move 
.move. 
: jntp 



y: trO) + ,x0 

xO , y : stnplidbit 

y:ir0)*,x0 

xO , y : <maxsubs 

(r0> 

< af cscds_ . 



_smplsffs_ ' v 
;MPEG-ISO encoding-. 

move irC) ♦nO 



;get old CDC1000 frame header id bi; 

; set ISO frame header id bit 

; get mono channel MAXSUBBANDS 

; set working MAXSUBBANDS 

;step over dual channel MAXSUBBANDS 

; continue 



,;skip over . old CCS CDQ1000 values 



af tscds" 



move . . y : (rO J xO 
move xO,y:<maxcritbnds 
move y : irO' ,x0 



/get MAXCRITBNDS ..value. ® sample rate 
; set MAXCRITBNDS at selected samplir.c 
; oet NMSKFREQS value * sample rate _ 
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move 
move 
■ move 
tst. 

j«q 

rep 

move 



X - * y <nms*f reqs 
y : f rrr>rate, c 
#bitrates,rO . 
b . #B,nO 

«_bit_cf fs_ 

b v V 

*rO>+nC-.- 



;set NMSKrREQS a: selected . sampl ir.c ■- 
.•test bit rate to se; audic data size . 
;addr of, framing bit rate.infc 
: ;testfor rate of zero . ' 
:; & set register to advance " thru .table 
;if code is zero,. we're there 



./position to selected bit rate code 



_bit_offs_ 

;set the table offset based on sampling rate 



move 

tst \ 

jeq .. 

rep 
move 



y : smplrte , b 

b " .-; 04 , no 

jbt-_srnpl_ '" 



b 



• no 



_cit_smpl_ 



move 



bit cds 



move 

jset- 
move 



aftbcd 



move 
move 

move 
move 
move 



#C ,'y: <oidccs. ' bit cds ■ 
(r0i~ ." r . ~ 



y : (rC; *,nl . 

#0, y :<oldccs, aftbcd 

(rQ)- - . ~ ■ .. :". 



y: (r0? *,yl 
y : irOJ . r2 ■ 

nl , y :bitrate 
yl, y :<outmus. 
x2 , y : f rmbits. 



.-set bandwidths based on sampling rate. 



move 
move 

jsr ; 

move 
move 
move 

' CTRp; 

jit 

cmp ■ 



y: smplrte, b 
y :f rmrate, a 

<bandwidth 

y:z3_psych,a 
a, y : <usedsb 
#>MINSUBBANDS CCS.xG" 



;get the sample rate code 

;test if low sampling rate 

; & set offset to proper sampling. rate 

; if low rate, addr is set 



; position to selectee sample rate 



;if MPEG- ISO, continue 

;adv to old CCS CDClOOO's code 



; get bit rate code for frame header 
;if old CCS CDQlOOO's,- continue ■ 
;s)cip oyer old CCS . CDC1C0G code 



.■selected bit rate frame size in words 
; number of audic bits in an output frame 

/audio bit rate code for frame hdr 
;set * cf words in a frame 
;musicam audio portion cf frame 

bit rate and band width selection 

;set bandwidths based on sampling rate ' 
; set bandwidths based cn frame bit rate . 



/get the selected sub -bands, if any 
;set initial used sub-band value 
;set minimum sub-bands to be used 



xC. a 



*>MAXSuBBANDS CCS.xO 



;see 



sues is toe sma* 



' <_3e f auit_used_0 6 
xO. a . " ■ 
c after used 00 



/ fit set default value, of maximum- " : . 
-; if 'less, default the used sub-bands 
;see if less than maximum sub-bands 
; if less, we're ok 



_default_used_C0 ' - 

.-default; the used sub- bands to max sub -bands 

.'move '-. ■ xO, y : <usedsb 
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_af ter_used_- 3- '■ 

,• calculate' buffer length controls 

move ' . #>2,xi 

mpy xl.yl.a >>l,xl 

.' asr a \'\ 

neve .! " aO , a 
• sub : . ■' xl, a •'• 
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;set the mod buf f er . f oz 
; aligr. integer result 
; shift integer result 
; : t f r ame numb words * 2 • 



2 frames 



; now save the' above buffer control- Values 

move .' al,y:coutsize ' • .-set circular buffer ctl for.- c.p buffer 

; set the type- cf' stereo intensity code 'as. nominal - 4 subbands iris- applicable 



move #>:ntens:ty_4,xo 

move xO , y : st intns 



rsterec intensity code fcr default cf 4 
;save for frame header info 



Set output write read pc inter to something safe' since interrupts . will 
be. or. before it is set properly. 



move #f ramebuf , r 0 
move ... rO . y: <oprptr. 



.-address of output encoded frames buff - 
.-set the output r«ad buffer - 



; set up for ancillary data to be decoded from a framed and transmit via rs232 
; a. 2erc the input data byte counter and bytes for current frame 

; . . b. set address of clock table, baudclk, based on baud rate thru 7^ 
; -. c. set table offset by baud rate;-.- 

:these are standard CDQ2iOCO set by macro; BAUDCLK. in box_czl .asm.- .: 
.0 » 300 baud ■ . 

1 » 120C baud 
• 2 • 2400 baud"'. 

; . 3 » 320C baud' • 

: 4 « 4800 baud; ■ . 
; ■ • -5 ■ 38400 baud - 

6 ■ 9600 baud • . 

7 - 19200 baud 
se; transmit enable ! £ or xon/xof f 
get and set the clock for baud rate from the table 
get and set the max bytes fcr baud rate from the table 
set the data input and output pointers 
set receive enable . 
set . receive, enable . interrupt; - 



c. 

e . 
« 

g. 

h .* 
i . 



move 

move 

move 

move : 

move 

tst 

jeq. ■ 

re? 
move 



■ baudrte 



move 



no, xo . 

x0.y:<bytecnt 
xO.y: cbytesf rm 
abaudclk.rO 
y : baudrte. b . 
b ... .. .*3,nG . 

<_baudrte_ 

b 

tro; ♦no . 



; zerc the received data counter 

;2erc the byte counter 

?zero the current frame byte counter 

;get data baud rate table address. 

;set to. access' clock at. baud' rate 

;test fcr- rate cf zero 

; & set register to advance thru tab 1 

; if code is zero, we're there 



/position to selectee, baud 



;get clock value at baud 



rate cooe 
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move . . y:smplrte,nO 
move ' " ■ ' * dajtabyt.es ,.x0 
move y:(r0+n0),nl 
move . . nl . y : maxby tes ■ 
move. xQ,y.<dataiptr 
move xO,y:<dataoptr. 
movep r2, x:<<M SCCR 
bset #M RE,x:<<M SCR 
bset . #m2rIE»x:<<M SCR 
bset . #M TE/X:<<M SCR 



; now get sampling rate '.off set. 

;get addr of the data byte buffer. 

;get max byte, count at sampling . rate. 

; store maxbyces for scixmt to check 

; address for next byte, received 

,-addr for next byte to output to frame 

;set the clock for selected baud rate 

;set receive enable ' 

;data expected set receive interrupt 

: set transmit enable 



; enable the host command interrupt 

bset #M_HCIE,X:<<M_HCR 
;. Set and. clear a flag so. we can set the scope trigger . 

ON BITALLCC_LED CD ■ v . ; set a different flag for debug . 

off_b:talloc_led_cd . 

; Now form the two pointers to the output buffer. 
. ; frmstrt is the write pointer and frmnext is the read pointer. 
; frmstrt is used to point to where the current buffer is for outputting 
; data into. This data is a result of the. current musicam coding. 
,; frmnext is used to point to the address for outputting of data 
; to the external device. 

. ; address of the output frame buffer 
;set the output read per. 
set the output buffer circular ctl 
; 1st- frame at start of buffer 
♦•advance to start of 2nd frame 
/set the output read buffer 
;set the next frame to write into 
,*set up last word addr of curr frame 
;for block sequence numbering 
; reset to linear buffer 

and the number of available bits fcr audio 



;save fixed bit count . ■ 

;save bit count available for alloc 



move 


tfframebuf ,r0 


move 


y : <butmus , nO 


move 


y : <outsize,m6 


move 


rO,y :<frmstrt 


move 


, (rO) ♦no 


move 


rO,y:<oprptr 


move 


. rO , y : < frmnext . . 


move : 


; irO) - 


move 


rO, y :cf rmlast 


move 


y : <linear,m0 


number . of 


fixed bits required, 


jsr- ■ 


<bitpool 


move 


xO,y:fixbits 


move 


. xl,y:audbits 



;initiali2e for receiving data for xpeycho routines. 





move 


#inpcm, rO 




move -.. 


. r0.,y :<ipwptr. . . 




move 


.:."#xbu£,r0 




jsr; 


. <polyaini 


IRQA 


set to 


IPL 3-, negative edge 


SSI 


set to 


IPL 3 


IRQB 


set to 


IPL 3, negative edge 


HOST 


set to 


IPL 2 


SCI . 


set .to 


I PL 2 . 




movep 


#>$f83f , X:<<M_IPR • 



;get the input pem data buffer' 
;set start address for input pem data 
;set starting position in x buffer . 
;init the poly analysis filter ":. 

(lowest priority). 



;set.int priorities and edges 
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;wai: fcr the dust . to settle before pushing onward 



. move 
jsr 



#>XCODE_STARTUP , a 
<wait- 



SET ADC RESET 



;stop A to D calibration 



; test.: MUSICAM. versus G722 : 

. . if MUSICAM, go to . the TOP of frame processing . 

if G722, jump to; that routine and restart upon return 



move 
tst . 
jeq 
jsr 



y : oputcde , a 

. a 

<_go_on 
<g722 " 



; MUSICAM vs G722 
; if zero, 
; ;it's MUSICAM, . enter that loop^ 
; handle G722 . 



;G722 output selected, boot up XMCRG722. from the low portion of chip 



bclr. #ll,x:«M_PBD 
v .jmp . <bootup ~ ■ 
jmp < restart 

_go_on_ 

/handle MUSICAM encoding 
andi ; #$f c.mr 



;clr boot cOOO for XMCRG722 boot ',0000} 

;bo6t in XMCRG722 

;restart with new switches .. 



; turn on the interrupt system 



;main loop thru the frames of data set up by the left and right 
; xpsycho.dsp for bit allocation and framing by the xcode dsp 



top 

; 1 1 idbg 



; ! ! ! dbg 

; ! ! :dgcst 
; I : !dgcst 



nop 
nop 
move 
move 
add 
move 
jmp 



y : dbgcnt , a 
#>l,xO 
x0 f a 

a,y:dbgcnt 
< initl. 



bset 
bclr 



watch dog 
watoTdog 



; tickle the dog 
/tickle the dog 



TOGGLE_WATCH_DOG_CD 
;get the external switches to determine if any changes that. signal a restart 



GE7_SWITCHES_CD gsws_10 v 
jsr" . . . ' <getsws • . 
, jclr. . #4,.y:<not_appl,_lets_gd 

;test MUSICAM versus G722 : 

if G722, jump to restart 
if MUSICAM, continue 



! debug - remove for normal 



move 

:"tst " 
jne 



x:tstcode,a 

a' 

< restart . 



; MUSICAM vs G722 

;if zero, it's MUSICAM . 

;it's G722, start over to boot 
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; : : :2/9/93- . • . "* •" :• 

■ TST SET G722_DATA_CD. restart ■ 

; 1 ! 12/8/93 ~ \ ~ \ ~ ~ • /• 

•w» have to restart With new framing criteria, 

\ protect the decoding of frames by clearing 2 successive frame 



move y : <f rmstrt , r6 

move. y :<outsi2e,m6 

clr /a, 

do Y :<outmus,_clear_l 

move a,x: (r6)* 



;set starting for output buffer 
;set the output buffer circular ctl 



; clear the 1st frame 



_clear_l 



• 1 ! 12/3/93 " 

TST_SET_G722_DATA_CD , restart 



! ! 12/3/93 



jclr 
bclr 
move 

do 
move 



#0, y:<timer,_clear_.l 
#0,y:ctimer r , 
y: cf rmnext r6 

y:<outmus, clear 2 
a.x: (r6>* 



;chec|c for new frame : 

;set starting for output buffer 

; clear the 2nd frame 



clear 2 



; ! I 12/8/93 

TST SET G722_DATA_CD, restart 

; !! 12/8/93 

jclr #0,y :< timer, _clear_2 
bclr #0,y:<timer . 



;checlc for new frame 



move 
jmp 



; restore to linear buffer control 
; let's start anew 



y: < linear, m6 
< re start • 

_iets_go ' • K ". 

; initialize stereo control settings to reflect current transmission - 

jsr • <setctls • 

.-check for new frame 
\ ;clr 0.024/0.036 msec timer bit alloc 

/now set the used sub -bands for '.this frame . ; 

vz3 osych.a ; get the selected sub-bands, if any 

a'y*Jusedsb - ,-set initial used sub- band value 

#>MINSUBBANDS CCS,x0 ;set minimum sub-bands to be used 
xO a #>MAXSUBBANDS CCS,x0 ;see if subs is. too small 

; & set default value of maximum 

< default used 10 ;if less, default the used sub-bands 
* n a ;see if less 'than maximum subr bands 

< after used 10 . ; / ;if less, we're ok 



jclr 
bclr 
bclr 



#0,y:<timer. top 

#0,y:«timef 

#0,y:<qtalloc 



move 
move 
move 
cmp 

: ji- . 

. cmp 
jii. 
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_default_used_lC, . 

■; default the used sub-banas to. max sub- bands • 

■move. x0,y :<usedsb 
_after_used_13 ' 

;set che CCS compression as per control parameter (n_psych> 



bclr 
move 
move . 
cmp . 
jit 
bset 



f Z , y :<cmprsctl 

y:n_psych,a 

#.5.x0 

. x0. a 

<_nc_corapress. 
#0 . y : <cmprsctl 



,-default as do not use CCS compress icr. 
;get the parameter from the table-, 
•if less than .5, no CCS compress ; 
.-see if use CCS compression or not 
'.-if less, do not use CCS compression 
.•otherwise, set flag to use CCS compress 



_nc_c onpr e s s . 
; the new data 

.jsr . 



tor the next frame is al 
<dcf rame 



lets do .it/ 



INTERRUPT HOST CD ; inform the host 

;pass the KUSICAM~enco5ed frame off for reed solomon encoding 



move 
move 
move 

. jsr . 



y :<frmstrt . rC 
y :<outsize,m0 
fcreedsolbuf , rl 
<hew rs 



;set starting for output buffer 
.-set the output buffer circular ctl 
.•set starting for output buffer 
.•call Reed Solomon encoding routine 



: :dbg 
: dba 



•rap 



<top 



I dbg: skip Reed Solomon 



.; copy the reed. solomon encode frame into the output frames DU..er 



move y : <f rmstrt , rC 

move y : outsize ,mC . 

move ireedsolbuf , rl 

do y :<outmus ,_copy_rs 

move x: trl) *,xC~ 

move x0.x:.tr0)'- 



;set starting 



output 



set the output buffer. circular ctl. 
; set starting for output buffer 



_eopy_rs 



:«p. 

end 



<top .. 
start 
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' opt .f c.mex ■ " 
; (c) 1991. Copyright , Corporate Computer Systems. Inc. All rights reserved. 

* \URDCDSYN\autosmpl-asm: modified to;, coordinate with BEN ' s mux 

' .. title-, . 'Decoder Auto Determine. Sampling Rate' 

• This routine attempts to determine ~- the- sampling rate cf MUSI CAM frame of 
■ -npu- data being fed to a MUSICAM decoder. It tries to macch on the ^ 

; selected bit rate a corresponding sampling rate that are preaefinec fer. 
the given units "capabilities. • 



;on entry: 
; -. y:frmrate 



indicates which tit rate was selected 



irate « maicatcs — . ". . , 

v-cctlaigs - NO LINES bit is set as to whether split frames possiole 
-ries « the number of attempts at framing that should be made 



xrmaxtries 



the number 
before determi: 



ing that the input data is net MUSICAM 



include def.asmV 
include \ # . . \commcn\ioequ.asm' 
include ' box_ctl . asm' 
include ' box~smpi .asm' 
include • box~tbls .asm* 



section highmisc 
xdef syncptrn 

. org- ■'. ' yhe : • " 
stauto_yhe 

syncptrn ds * 

endauto_yhe 

' "ehdsec 



;4 possible sync & hdr patterns 



section lowmisc 



' xdef • 
xdef 
xdef 
xdef 
". xdef 
xdef 

org • 
stauto_yli 

synccnt 
' synemtch ': - 

syncwrds 

syncbits : . 

syncf rms 
• synced ■ - 

endauto_yli 

endsec 



synccnt 

synemtch 

syncwrds 

syncbits 

syncf rms 

synced 

yli: : 



ds 
ds 
ds 
ds 

ds. 
ds 



■! !BEN 



section. highmisc 



; count of sync patterns. to check 
; pattern matched (odd»padded) 
;words per frame (if pad. diff -1) 
;bit offset to frame start .. 
; number of frame to sync up on 
; count of frames sync' ed 



xdef 



srehrate 



; ! I ! BEN 
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! BEN 



xdef 

xdef 

xdef 
xdef 
xdef 
xdef 
xdef 



;srchtries 



maxtries 

tstsrapi 

f ndbit 

fndsmpl 

fndidbit 

padbit 

sampletable 



!B£N 



■era' ■ 


xhe: 




si ,autc_xhe" 






.:::BEN 






srehrate 


dc 7 


C 


srehtnes 


. dc ; . . 


0 


; : I ! BEN 






maxtries ,. 


. dc 


■ " c 


tstsmol 


:6c ■ 


- .0 


f ndbit 


. dc 


0 


fndsmpl 


dc 


0 


fndidbit 


dc 


0 


padbit " ■ 


dc 


0 



SAMPLETABLE 

endautc_xhe 

. ""endsec 

org phe: .. . 

autosample 

CLROAC_R£SET . 

'; I ! ! BEN ' -■ 

;;;turr. eff the interrupt system 



; index to rates in sample rate table 
.-failure counter of auto sample attempts 

./current auto determine max tries 
; sample code under test 
; bit rate code from frame header 
/verify found sampling rate selection 
.•verify found sampling rate id bit 
.•save padding bit from the header. . 

; table for sample rate auto determination 



,-clear the DAC reset line to mute output 



on 



#503. rar- 



;;; Now set priorites of the IRQ A and SSI peripherals 

IR3A priority » 2 
;;; IRQB priority - 3 
" ; ; ; SSI priority - 2 
;;; SZl priority;* 2. 



movep #»SaQ3e,x:«K_IPR 



,-set ir.t priori ties, and edges 



: :BEN 
_autc_AA 

jset ; . #AUTONEXTFRAME,y:<process,_auto_continue 
rbuild up the frame length table, based on the selected bit rate 



move n sampletable, rO 

move # AU70BYS AMPLE. nC 

move . x:srchrate.b 

tst ; : b .-• .. ; . 

■jeq . • _auto_BB "■ 



;addr of sample rate frame lengths, 
./set auto sample .offset to next rate 
; get next rate index to, search fcr . 
;see if 1st sample Tate .in table 
;if so. skip address adjustment 
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do b 
move 



c auto BB ' • ' itor index count, adj table addr 

(rO)*n0". • " ■ ; advance to next sample rate 



_autO_BB . 

!!ifo?the number of sampling rates supported; set table of frame lengths 
!! do #NUMSAMPLERATES._auto_900 - 

;7 /l2/94: test sampling rate as not applicable to current project 

rnovo r0 v<svereq ; save current table address ;, , ; 

;; ZZt x \rC)* b ; get rate applicable, code (0 • APPLIES) 

Sclr #i y oldccs clear y:oldccs frames CDQ10C0 flag 

l J^'** 010 ^ 5 ;see if not applicable (-1. = N/Ai 

' jit'- auto_800 ;:1N/A, go to try next sampling rate ; . 

•now test for framing on old CDQ1000 low sampling rate old frames 

jeq auto A ; if zero/ not old ccs CDQ1000. frames 

bset Io.y:Sldccs ; indicate old CCS 

bset #1 y oldccs indicate old CDQ1000 frames 

bill #DECOMPRESS_PACKED , y : <cr 1 f Igs : ; handle CCS compression 

■ _auto_A 

; get the WUSICAM frame header ID bit that indicates high vs low sampling rates 

, mnw x - (r0)*.x0 • • ;get the high/low rate hdr id bit 

move xO v-smilidbit • ;save for translate rate code 

: .g-;^ 11 ™" .... -;address of entries: at sample rate 

; addr of the translation table . 
;to offset to translated index 

; pos to bit rate translate 1st value 

•pos to bit rate translate 2nd value 

•low (0) or high (1) sample rate selec 
ito see if not supported 

,-get the translated rate index code 

)see if not supported rate 

;not supported* try. next sampling rate 

;8 et the supported framing bit rate table index code 

. move xO,y:frmrate , tbit rate index code , 

;set up the framing patterns table ;at sampling rate/framing bit rate . / 

u xtrrnp yb I TRATE nl ;numb parameters per bit rate . .; 

move , #AUTOBYBITRATb,ni . q defined bit rate 

■ move :• ^ :frtnra,: x'ui)^x0 • • ;Iest if code zero 

tst , b . . . .x.iri> + .xw , . , ^ set cab i e sample rate code 

.... 'if zero/ skip addr adjustment 

jeq autoJJO , . position, to selected bit rate 

■ rep b - ' ■'•*' 



move 


: . atranslaterates,rO 


move : 


y:rawrate,nO 


nop 


(r0)*n0 


move . 


move 


(r0)+n0 


move 


y :smplidbit,nO 


move 


#>-l,a .'■ 


move 


y : (rO+nO) ,x0 


cmp 


x0,a 


jeq '. 


auto_800 
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move . 



-* UCC - 0 °move xQ.xrtstsmpl ;save sample rate code 

; build up the table of framing patterns at this sample/bit rate 

'. move #syncptm,r2 ; table of framing patterns to match 

•set at least the 1st two patterns.: unpadded. and padded /(possibly) 



move . 
tst . 

jeq 

move 
move 

.tst" 

jeq 

move 

move 



x: (rl)+.b 

b. b,x0 ; 

_aut o_800 
x0,y:7r2i + 
x: <rl)*,b 
b #>i;xi 

_auto 10 
b,x0 
. #>2,xl. 



auto 10 



move *0,y: ix2) 



; get 1st defined framing pattern 
; if 1st pattern is zero, not valid 
. ; & save 1st defined "framing pattern . 
,*bit rate not supported ® sample rate 
; insert the pattern in test table 
-get 2nd defined framing pattern 
;if pattern zero (NO padding possible >• 
; & set pattern count to 1 lat least) 
; if zero, use 1st pattern over again 
;else. use the padded framing pattern 
;set pattern count to 2 

; insert 2nd pattern in test table 



;now if split, mono framing is possible, set up to. look, for those frames 



jclr 
move 

tst ' 

jeq 
move 

move,. 
, tst 

jeq 
move 

'■' - move', 
move 

_auto_20 
;set count. of 
move 



*NO LINES, y:<ctiflgs, auto 20 ; NOT appl if one cr both lines 

#i - . / - ...J framina nattern 



x: (rl)+,b 
b b.xO 

auto 20 
. x0,y:7r2)* 
x: (rl)*.b 
b #>3,xl 

auto 20 
b,x0 "\ 

. #>4.Xl ' 

x0,y: (r2) + 



uu *w $ i'w* **rtr~ — 

;get 3rd defined framing pattern 
;if pattern zero (NOT split frames) 
; & in case of duplication as 4th 
; if zero, NOT eligible for split frames 
; insert 3rd pattern in test table 
; get 2nd defined framing pattern 
;if pattern zero (NO padding possible) 
; & set pattern count to 3 
;if zero, use 1st pattern over again 
•else, use the padded framing pattern 
;set pattern count to 4 . . 
; insert 4th pattern in test table 



framing patterns inserted in the framinb pattern table ; ; 
xl,y:<synccnt ;set the pattern count for framing. 



; get the frame length values at this sample/bit rate 



move- #framevalues,r0 
move #FRAMEBYS AMPLE , n0 
move x:tstsmpl,b 

. tst • • b 
jeq - . _auto_4 0 



? addr of sample rate values 
; numb parameters per sample rate 
•to see if need to adjust address 
; if code 0, no need to shift, address 
;if 0, get the 3 parameters^ 



;adjust, the table address to proper sampling rate parameters 



rep 
move 



b 

• (r0) +n0 
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_auto_4 0 



move 
move 

CSC 



# FRAMEB YB ZTRATE . n 0 

y : frmrate, b . 

b 

auto 50 



; numb parameters per framing bit rate 
;test bit rate to sec audio data size 
;if cede 0, no need tc shift address 
;if 0, get the parameters 



,-adjust the table address to proper framing bit rate parameters, at sample rate 



rep 


b 


move - 


(r0) +h0 ■ . 


auCo 50 




~ move 


y: (rO) *.rl 


move 


rl,nl 


... move 


trO) ♦ 


move 


(ril+nl ■ . 


. . move 


<rl) - • ,. 


move 


rl,y:f rmemod 


move 


y : ( rC ) * » b 


t s t 


b nl , rl 


S ACT 


auto 60 


move 


Trl ) 






move ■ 


■»* v v * < svnewrds ■ • 


move . 




move ■ 


■ tcO v « evnebits ■ 


. move 


n w , i J 


*. move ' 


r3 x-srehtries 


■" bclr • ■ 


#0,y : <protect 


. . bclr ' 


#0,y:privacybi: . 


_auto_70 




; i : :ben 




; turn of f the 


interrupt system 


; ; - . Ori . 


#S03,rar 


'; initialize for 


the interrupt rou 


move 


x:srchtries, r3 


■- move . 


#0,x0 


. move 


(r3W 


■ move 


r3,x:srehtries 


move 


xO,y:<inpstat 


bset 


#2,y: <inpstat . 


; ; move 


, y : f rmemod, aO 


; ; move ; 


"• aO ,y : <inpsize . 


move 


. # >AUTO — FRAMES ,yl 


move 


yl , y : <syncf rms 


: move . 


x0,y:<synced 


; ; move 


#syncbuf.xO 


move . 


x0,y:<inpwptr 



,-get the words per frame at rate . 
;tc calc circular doubled buffer : 
;skip the bit count per frame 
;dcuble framing buffer 
;fcr circular double buffer ctl 
;save framing circ buffer ctl 
;get any padded frames DIFF value 
;to see if word count adj needed 
; St restore frame length in words 



; decrement word count 



padded 



;set the words per unpadded frame 

;get any unpadded frame extra bits, 

;sec any unpadded frame extra bits 

.;tc zero the failure counter. 

; zero the failure counter 

; start looking for CRC protection 

; start looking for privacy bit off 



ine to try to frame . 

' ; current failuer counter 
; clear all bits 
; increment attempt, ctr . 
;save incrmerit failure counter 
; flags to control i/p routine. 
; f lag to do pad framing . 
;for framing buffer size. 
.'■ ; store for ssirec rtn to store 
; # of frames to match 
■;set number of frames to : sync 
;zero the synced frame counter 
: ; address of the. input .buffer 
;>et the input write pointer 

. 1 ! i BUM ''> ',. 

J ; Jbefore turning on the interrupts. Restart, the input data stream process 
that inputs bits to fonr 24 -bit. words ■ 
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]'j . move " #BitIT6In,r7 ; .; init the bit. input, buf fer, ptr . . 

.andi #$fc,mr turn on the . interrupt- system •". 

•;;hang out here until, framed or failed 
; ; auto 80 

;; ~ "bset WATCK DOG . ; ; tickle the dog 

;. ; . . . bclr ■ WATCK~DOG ' • ; tickle' the . dog • 

bset # AUTONEXTFRAME , y : <process 

;!! !BEN: per form old ssirec auto sampling on current frame 

_auto_contmue 

; we are now ' attempting to frame:. 
*; if start of "syncing" (bit 3 not set ) , . ' 

; : ■ set 1st " word .of pair to check 
.; ' set starting word offset. • 

; . ; set 'flag to -set 2nd word " 

= continue to react when 2rid word to check comes in 

.♦else, 

; see if. waiting for the 2nd word or counting looking for the next sync 

move y ; frmcurr, r4 ^ ; sec start of the frame addr 

move , y : f rmemod , m4 ;set circular buffer 2 frames 

_auto_CC 

; start looking for framing pattern . 

jset 33 ,y:<inpstat, auto 35 ; we have set the 1st. word, continue 
c l r a r4,y:wrdoff~ r ,-init.for the 2 words tc check 

; & save initial start word offset 
move x:ir4)+,al ,-set 1st word.to check tincr write ptr/ 

bset . *3,y:<inpstat , ■. , .-flag to check the 2nd word 

$0,r2 ; start count of words looking for. sync 

auto CC ;try 2nd word 



move 

: jmp 



; if waiting for 2nd word to check (bit 4 not set)/ 
• put new word in aO to look' for the 24 bit pattern 

start the bit offset counter . . . 
; loop through 24 bits over 1st and 2nd word trying to match one _ 
] of the defined sync patterns 

!- €lS we found a pattern and are trying sync up on the next frame 

_auto_35 ^ . . y.^incstat, auto 105 ? countirig to check nexr frame sync 

move x:(r4),ab r . ~ ■ - ;set the 2nd word to search 

. move #0,rl . ;. ?init.the bit offset counter 

do #24,_auto_65 

; see if current offset contains a valid sync pattern 

move al .b ■'' . . ; current bit offset! pattern 

: move: - ttsyncptrn.nO : ; addr of array of sync patterns 

- ' move *qVt7. ;offset to 1st pattern 
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; -., . / •. -133- \ 

;loop through the available sync ; patterns *; 
do y : <synccnt , _auto_55 

move y : (rO+nO) ,x0 ; ;get the next sync pattern to check 

cmp • x0,b ;see if pattern matches. 

jne •' _auto_45 • '\ ;if net, try next pattern '• 

;we found a framing pattern,, set the indication and break out to proceed 

bset #4,y;<inpstat '- ' ; indicate the match 

enddo ;end y:<synccnt loop 

■ enddo. ,= ■'.; end #24 loop 

jmp _auto_65 ;we matched the pattern 

_auto_45 - 

; try the next framing pattern 

'move. (rp) * • • ' ; 
_auto_55 . 

;try the next bit for a match of a framing pattern 

' ' asl ••'•' / a ; • (rl)+ .-. ' ; shift left into al 

; & increment the bit. shift counter 

_auto_65 . . 

; if the pattern was not matched, ... 

set the next word as the offset 

increment the address for . the next word . 
; exit the interrupt routine and wait for . a new. 2nd word to check 

clr a (r2) + ;zero the syne'ed frames counter . 

;& incr count of words looking for sync 
jset #4 ,y : <inpstat ,_auto_75 ;if match, set up to check next frame 
move y :<syncwrds,a " ;get number of words per frame 

move #> FRAME OVERAGE, xO ; to add some cushion to frame length 

add x0,a . "r2,x0 ;add cushion to frame length : 

; & get words checked so far 
crop. xO.a r4 ( y:wrdoff ;test more than frame checked. for sync . 

; ; ; & save. possible new start word offset. 

;if more than a full frame has been searched without finding SYNC: 
. ; we failed at framing. at this sampling/bit rate : 

jit auto 155 • ; indicate failure .at sample/bit rate 

move x:{r4T*,al .set new 1st word to check {incr ptr) 

•• jmp. •. , _autojrc . v. , .-. • ; try new 2nd- . word '; 

_auto_75 • -' . 

/frame matches' a sync pattern: . 

; update the syne'ed frame counter 

; save the sync pattern match, index to test for padding or not 
; store the new bit offset to start this frame 

set the address and offset for the next frame . 
;: see if padding needed, ... 
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move . a,y :<syhced 

move rO , y : csyncmtch 

move rl,y:bitoff 

move y:wrdoff,rO 

move y : f rtnemod,mO ". . 

move y : <syncwrds. nO 

move. y:bitoff,a 

move irO) «-n0 . 

move y: <syncbits,xO 

add . . xO , a 41 >PAD_SLOT , x0- . 

jclr . #0,y:<syncmtch,_auto_B5 

add . xO,a 



;updace the sync'ed frame counter 
;save matched pattern index , 
;save the hit. off set \ 
;address start last frame 
; set circular buffer ; 
; words to next frame 
;get the bit of f set start 
•address for next frame start 
;get unpadded frame extra bits 
; add extra bits to offset .. 
.; & set upo for any neede padding 
; match index even, NOT padded. 
; add. the padded bits 



_auto_85 - . ; ;\ 

; see if bits exceeds full, word and adjust 



move 
crop 

sub 



#>24,x0 
xG,a 

_auto_95 

xO, a (rO) - 



;24 bits' per word • 

,-see if next address needed 

;if offset within word, continue : 

; adjust the bit offset by full word 

; & increment the start address ; 



_auto - 95 . 

;set address and bit offset to match the next frame 



move ■ 
move 
move 
move 
move 
bclr. 
rts 



rO, y :wrdof f 
a.y.-bitoff 
(r4) + 

y: linear , m4 
y: linear, mO 
#5,y:<inpstat 



; start next frame word address 

; start next frame bit offset 

; advance the write pointer 

.•restore as a linear buffer 

/restore as a linear buffer 

; clear reached frame indicator. 

; BEN - exic rtn and wait, for nexc frame 



_auto_105 

;if ready to check the new frame as it comes in 

test if expected frame start address has been reached - - ■ ■ 
5 f so set indicator to check the next word received (2nd in the frame) 

\ /otherwise, keep accepting frame .words into buffer 

!- elSC check for the pattern in the 1st and 2nd word (latest received.' 



jset 
move 
move 
crop 

jne 



#5 , y : <inpstat , _auto_115 
r4 , xO ; 
y :wrdof f , a 
;x0,a \ <r4) + '-. ; 

auto 1S5 . 



;to test if frame start addr hit 

; address to match 

? see if address hit 

; & increment the write pointer 

; if not, frame length problem 



;we have the 1st word of the frame . 

; set indicator to check 2nd word for framing pattern. 



bset 



#5,y:<ihpstat 
auto CC 



; indicate check next word for pattern 
; to check .2nd word; . . 



■auto 115 
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;we now have the 2 words to check this frame for framing 

. c i r a #>l.xl ; clear the register to align pattern 1 

; & set" to increment frame match coun: 
move x:(r4)-,a0 .-retrieve 2nd word (back up tc 1st » 

move . x:(r4)+,al. . ; retrieve .1st word (forward, tc 2nd) 

;if a bit offset, shift over the expected bits to align the pattern 

■move y:bitoff ,b ;to see if a shift" is needed 

'tst b ;see .if zero • 

jeq _auto_125 . : ; it .so; skip the shift ' 

; shift. left to .align pattern in al 

.. do b,_auto_l25. •/• 

■ asl a. ... - 

_auto_125 •• 

;see if current offset contains a valid sync pattern 

move ai # b ."to test shifted pattern from frame 

move #syncptrn,nO ;addr of array of sync patterns. 

... move *0,r0 .-offset to 1st- pattern, 

,bclr #6,y:<inpstat ; indicate no match yet. 

; loop, through the available sync patterns . 

do y:<synccnt, auto 145 . • 

move y: (rO+nQ),xO . ;get the next sync pattern to check 

cmp xO.b ;see if pattern matches 

:ne' •"' " _auto_135 .. , . . ;if not. try next pattern 

; we found a framing pattern, set the indication and break out to proceed 

bset #6,y:<inpstat ; indicate the match 

enddo ;end y:<synccnt loop 

jmp auto_145 . ;we matched tne pattern 

_auto_ 135/ 

;try the next framing pattern 

'"•''move (rO) «► •• • , '■■.'[ 

' _auto_145 . -V 

;i f n o C a match,, we are not framed, try again via f ramit or autosmpl. rtn 

jclr #6,y.:<inpstat,_auto_lS5 
;we did match a framing pattern < 

V move . y:<synced.a . . ;get count of frames sync'ed so. far 

add xl. a y :<syncfrms,xl. ..-increment count v 

. • ' 7 / ; i S et to .test if limit reached ■ ... 

cmD xl.a y:bitoff ,'rl ;see if sync frame count reached - 

... .cmp . . ;• .• . " ; fit set the bit offset register. .. 
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jlc 



■auto 75 



-/not at limit, go set up for next frame 



/we are, now considered framed 
;. indicate OK 

; put bit offset for this new frame in proper register 

/ . put address offset for this new frame in proper register 

■ set the data gathering correctly 
; exit the interrupt routine' 



clr . 

move 
move 
move 
sub 

move 
move 
move 
jmp 



a #>l.x0 

y:bitof f , r3 
y:wrdoff,b 
*syncbuf,xl 
Xl,b ; ! ! !BEN: 

b,y:wrdoff 
b,r5 • 

xC,y: <inpstat 
auto 160 



(r4) + 
! ! !BEN 



;a»0 indicates we' re framed 
? & set to set flag to gather data 
;r3 is expected to have the bit offset 
/address of the last matched frame star: 
.•starting address of input buffer"- 

: ; calculate the start, offset into buffer 
; & increment . the. input write pointer 
;save buffer address start word offset 
;r5 is expected to have address offset 
;set flag for normal data gathering 

./done with auto sample this sample" rate 



auto 155 



/failed to frame, indicate to the framit of autosmpl routine to try again 

bset #8,y:<inpstat ' 
_auto_160 

;!! !3EN: perform old ssirec auto sampling on current frame 



jset 
jset 
jmp 



#0,y:<inpstat,_auto_90 . /framing found 

#8,y:<inpstat,_auto2l00 /conclusion has been as not framed 
_auto_80 /continue waiting for result 



auto 90 



;we have successfully framed the ccrrect number of frames in a* row 
/ and therefore we found our sampling rate. 

/ : ! ! BEN enddo /end. U NUMS AMPLRATES loop. 

bset #AUTOSAMPLEPROCESS,y :<process /indicate auto sampling done 
. clr a. /indicate success to caller 

move. y: linear, m4 /restore as a linear buffer 

. rts / /return with sample rate found 

'auto. 100 



!' ! IBEN 

; /we did not frame at that last sample .rate, 
//turn off the interrupt system \ 



try the next one 



on 

nop. 

nop 

nop 

nop 

nop . 

move 

move 



#S03 ,mr 



x:srchtries,x0 
r3,x0 , 



/number of tries at sample rate : 
./number of tries at sample rate 
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move • ' *>MAX_ACTO_TRIES,a ; • ; get tolerance ctr' 

cmp • x0,a . ; see If time zo try next sample" rate 

39 c . _auto_70 ;n0 c. yet make another try 

; see if the pass looking for. frames with privacy ■ tit 'not ■ set • • 

move . .' #privacybit,r3 ' ' ;addr of privacy bit flag " 

jset .*0,y:.{r3) ,;jiutojL08 ,;if tried privacy, check protection 

;now try looking for a frame header with the privacy, bit set 

move #syncptra,r3 .-modify table of syn patterns 

bset #0,y:privacybit . ; indicate privacy bit set 

;for the number sync patterns set the : privacy bit set 

do -y:<synccnt, auto' 102 

bset #0,y:.(r3) ~. ■ 

_auto_102 

; restart the attempt counter . for the new sync patterns . 
' move ' 80, r3 

move rO,x:srchtries ,;zero the failure counter 

jrop _auto_70 mow make tries with privacy bit- set 

■ _auto_108 • _ • , t 

;see if the pass looking for frames without CRC protection was done 
-;. if so, try next sampling rate 

jset . #0,y:<protect,_auto_800 ;if no CRC done, try next sampling rate 

;now try looking for a frame header without the CRC protection 

move . #syncptm,r3 Vmodify table of . syn patterns 

bset .' #0,y:<protect . ^indicate NO CRC protection". 

bclr #0,y:privacybit ;reset try with privacy bit set tc C- 

;for the number sync patterns set the NO protection bit 

do y : <synccnt ( _auto_ll6 

.. bset #8,y:(r3) " " . ;set the protect bit 
bclr #0,y:(r3)V . ... ;clear the privacy bit 

■ ^_autb_110 ' 

.•restart the attempt counter for the new sync patterns . , 

.move . #6, r3. ■'' 

move rO, x: srchtries . ;zero the failure counter 

jmp _auto_70 .now make tries without CRC bit 

. ;7/i2/94: added label to skip to next sampling rate if not applicable 

■'_aUtO_800 ";'■/'; . ■ ' 

;this sampling rate did not match,-. try the next table entry'. 



SUBSTITUTE SHEET (RULE 2P) : \ Q oftlG iN AL I 



WO 96/32805 



PCT/US96/<V4835 



-138- 



13EN 



move 
move 
nop 
move 



y:<svereg,rO 
#AUTOBYSAMPLE , n0 



;rescore sample table address 

;set auto sample offset to next rate 



; ! ! I BEN: 



(r0)+n0 .. . /advance to. next sample rate- 

increment the current sample race table index to. try. next sample rate 



bclr ttAOTONEXTFRAME , y : cprocess . ; to start next sample rate entry 

move x:srchrate,b' ; to increment table entry 

move #>l,xC .. /increment 

add. x0,b $>NUMSAMPLERATES,xO /increment search- index " " . 

'./ & get. max table . entries count, 

cmp. x0,b . b,x:srchxate /see if table totally searched 

. . ; & in case, save new search index 

' jit. auto_AA :: .'r'-.- ••' /if less than max, try new table entry 

_auto_900 

/we failed tc determine the sampling rate, indicate failure to. caller 

bset fcAUTOSAMPLEPROCESS . y : <proc"ess /indicate auto sampling done \. 

move #>-l,a /indicates failure 

.- move y:linear,m4. /restore as a linear buffer ... 

rts /return to caller. 



i 
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' -139- • \7 •' 

.'. opt . fc •• .'; • . : - 1 - • " •" . • • 

. ; ' (c); 1991 . Copyright Corporate Computer Systems. Inc. .All rights reserved. 
; \URDCDSYN\getancda.asnv: BEN y:<linear, y rfrmemodtinpsize) . 

■ ; This routine decodes the ancillary data bytes for output, to rs232 i/f 

; on entry- " • ' 

'. ; ■ r6 = -current offset in output array 

;.. y:dataiptr « .address in data byte input buffer to start from "■ 

y.bytecnt - count of bytes in input buffer not yet transmitted 

■ ; on exit \ ■ 

a -'destroyed ■ 
; ." b - - destroyed . /; . 

' ; ■ y0 - destroyed. , 

; . yi * destroyed 
r0 » destroyed 
: , rl » destroyed: 

■ . r2 « destroyed - 
; '•■ • r3 ■ destroyed ; 

; r4 » destroyed '." 

; ■ n4 » destroyed ■ 

' include 'def .asm' 
.. include '..\common\ioequ. asm' ... 
include *box_ctl. asm' '• 

. . ' section bytebuffer 
xdef databytes •' 

'■■•org yli: 
stgetancda_yli 

databytes .. ds . ■ . . DATABUFLEN 

endgetancda_yli . 
endsec 



/buffer for bytes received 



section 

xdef 

xdef 

xdef ;.: 

xdef 

xdef 

xdef - 

xdef 

xdef 

xdef 

xdef : 



highmisc 

anctype 

baudrte 

dataiptr 

dataoptr. 

bytecnt 

maxbytes 

saveaO 

saveal 

savea2 

padbytes .. 



;data baud rate code from switches 



org yhe : 
st get ancda^yhe 



anctype 

baudrte 
dataiptr 



ds 



ds 
ds 



;type of count field after audio data:; 
; ; ; . . 0 » .3 bit padded byte count 
; 1 - .8 bit data byte count 

;data baud rate code from switches 
;ptr. for. next byte decoded from. frame 
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dataoptr/ . ... • ds . ; ptr for next byte to -transmit ted to rs232 

bytecr.t .ds. 1 .-count of bytes yet to be output to rs222 -- 

maxbytes , ds .' .1 . ./tolerance check of bytecnt for scixmt 

saveaO ds 1 save reg aO for scixmt 

saveal ,•" •' ds .1 ; save reg al for scixmt '"■ 

save a 2 ■■/'-". ds :i -save rega2 for scixmt. 

padbytes ' " ds... - - 1 '. ' ;hcld pad bytes, from, the frame " : 

• endgetancdaSrhe 
endsec 

org •• , phe : ; % [ Y 
getarxdata '.. ..•*.-..- 
; clear the ancillary data problem for old CCS frames 

bclr #2 ,y: oldccs 

;set address cf type of count to extract: 

; . padded bits byte count OR data byte count 

" move . #anctype,r4 ■ ;addr of type of cour.t field 

;do not decode ancillary data from a reused saved frame 

3 set. #USE_SAVED,y:<ctlf lgs,_ancd_90 .'■ ;if not reused, continue 

;see if data byte count, and if so, read byte count and then bytes 

jset #0,y: (r4) ,_ancd_78 . ; if byte count, get data byte count 

. ; set the end of the MUSICAM portion of the full frame values 

move y:frendwd.rO ;normal MUSI CAM frame last word address 

move . y;frendbt,nO ; normal- MUSICAM frame last. bit cffset 

. move y :'f rmemod t iaO ■ ;set circular buff -'to' add j. addr 

move mQ.ml ;set circular buff to addj addr 

" move . *>-l,x0 . \\;Lniz the pad bytes value' 

move-. xO . y : padbytes 

: ; test if room remaining . in the frame to read the CCS ancillary data pad 
;; . byte count 

move rO.rl , ;get addr of last' word into proper reg 

• move." r6,a ' ; to test next addr to decode - 

move trl)* , ;tq."see if last word being decoded . 

move rl.xO . . ;to test last frame word, address 

' crop . xO.a #>BITSFORPADDING,xl ;see if about to decode last 

• ;. &. set numb tits. in pad byte cnt ■ . 

jne ;_ancd_0C. ' , j ; if net. test room from curr decode word , 

r decoding of the last word in the frame is in progress. '. 

; see if sufficient bits remain to get the padded byte count . 

move . ■ #>24,b •• ;get bits per word 

•-•'move ..y:<sc # x0 get unde coded bits count in last word 

• sub xO.fc -. nO.xO ,*calc bits decoded from last word so f ar : ; . 

' ; &• get total bits: in that last-, word ' 

neg- b- ;ma<e bits already decoded negative ...... 
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add 

; - ctnp 
!dbg, 3 It 

:g« 

. nop: 
nop 
nop, 
nop. 
nop 
jmp 



x:.b 
xl, b 

ancd 6 5 
~ancd~05 



ancd 85 



;add- "total bits in last word' - 

;see if enough bits remain 

;ifi not it's net CCS. no. ancillary data 

;if so, do ancillary data 



; if not it's. not CCS , no ancillary data 



ancd 00 



; tesz 



che next to last word address to, test remaining bits * offset 



last 



move 
move 
cmp 

jne"- ■ 



;ri) - 
ri,xC 
xQ,a 
ancd 



05 



.-back up to next tc last word addr.. 
;to test next to last vs next addr . ... 
; see if next is next tc last "• 
; if not at next tc last, dc ancillary 



se. if remaining bits 
plus the number of 



move 
. move 
. add 

cmp 

: !dbg jlc 

nop 

■ nop 
nop 
nop 
: nop 
3.WP 



y : <sc, 
n0,x0 
xO.b 
xl,b 
w ancd_ 
ancd" 



in current (next to last) word being decoded 
bits in the last word have enough bits for pad byte cnt 

b : *. ? get undecoded bit cnt curr decode word 

; gec total bits in that last word 
;add total, bits to remaining bits cnt 
; 'see if enough bits left in the frame :•. 
85 -if not, it's. not CCS no ancillary, data 

OS ;if so, do ancillary data 



_ancd_85 



no: 



it's 



not CCS no ancillary data 



_ar.cc_G5 .. 

; get the count of pad audio bytes from the. frame 



move #masktbl, r2 

move #B ITSFORPADD ING , n4 

move n4 , n2 

jsr getvalue 

move y: tr2*n2) ,xl 

and . xl.a n0,x0 



move al , a ■'• 

move a,y:padbytes . _ 

- gt a y:dataiptr.r5 



; ad jus: 



. jeq . _ancd_4G 
end cf. frame for padded bytes (8 bits per byte; 



;numb bits in pad byte count 
;aet hi order bit. mask index 
• get pad byte. count from frame 
•mask off high order. one's. 
; mask off high order one's 
; & set end of frame bit offset 

; clean up. for' a zero test 
;save the retrieved pad byte. count 
; test if any pad bytes included 
; t set addr cf next byte to be stored 
;no pad bytes in frame.,, go decode aata 



move . *>8.xl 
■ move : '*..' al,yl ' " , 
mpy, : xl.yl,a *»24.xl 



; set up bits in a data byte 
; get count of pad bytes . = 
.-mult by 8 bits per byte . 
; U set bits. per word 
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asr 



move 



a ■ 
aO , a 



r6.b 



ancd 10 



cmp 

: jit 

move 
crap. 
!dbg jeq 
j ne 
nop. 
nop 
nop 
nop 
nop 
: jmp 



ancd IS 



sub 



jmp 



xl . a 

_ancd_20 
rCyO" , 
yo,b 

_ancd_89 
~ancd~15 



_ancd_89 

xl,a (rOJ 
ancd 10 



ancd 20 



;now back off che number of bits 



cmp 

move 
cmp 

; ! ! ! dbg jeq 
• jne . 
nop 
nop 
nop =_ 
nop 
nop 
jmp 



xo , a 



xO.b 



ancd 30 ..' 
r6,b " . 
y0, b xO, b 

_ancd_89 
~ancd~25 , 



ancd 89 



ancd 25 



add 



xi;b 



(rO) - 



ancd 3 0 



; align integer result 

; , & get . next decoded wcrd addr 

; shift integer result 



;if a full word of padding remains 
;if not, go adjust the bit offset 
;to see if at next decode word 
;see. if next to decode reached : 
; if so, no data to decode 
;if not. keep checking 



so , no data to decode 



;sub full 24 bits, ••. 

; & back off one word in end address 

; try again . 



;offset vs rest of pad bits 

; & offset to : b reg for adjustment 

;if.less or equal, don't adjust 

;get next decoded word addr. 

; see if next to decode reached 

; & offset to b reg for adjustment 

;if so.no data to decode 

; if not, data to decode 



•if so, no data to decode 



t adjust offset by bits for full word 
r & back off one more word address 



;adjust the bit offset by the remaining pad bits 



move 

sub 

move 



a, xO 
xO,b 

b, nO 



;get the remaining pad bits 

/calculate new bit offset 

;save approx end of anc data offset 



_ancd_40 . 

;now get. the bytes and store in the buffer for the trasmit interrupt 



move: . U DAT ABUFLEN - 1 ; mS 
move #BITSPERBYTE,n4 
move n4,n2 



; circular buffer 

; number of bits to. decode from frame 
;get hi order bit mask index 
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move 



#C,r3 . . ; this is the decoded byte ecur.ter " 

_ancd_50 

;as long as there is room for a byte to be decoded, do it 

'• ; cur r next frame' word address' - 
> ;set up bits in a data byte 
: ;next frame word addr - 1 » curr addr 
;get frame end word addr 
;get end bit offset in frame end word. 
.. . ; to. compare curr frame word to end addr 
;is curr frame word equal end frame word 
r & get bit offset into curr frame word . : - 
' ■ ; if . not end frame, word, try next to last 

-since we've decoded into the last word in the frame, 

subtract remaining bit in curr word from 24 to determine how many have- 
been decoded - 

subtract the used. bits from the last word bits , available 



move 


' rS.rl :■■:*■ 


move 


#>BITSPERBYT£.xl 


move 


(rl) - • 


move 


rO.a 


move 


nO ,y0 . 


move 


. rl.xO • 


crap 


xO.a y:<sc,b 


jne 


_ancd_60 



move 
sub : 

sub 



#>24,a 
b,a 

a. b 

ancd 70 



yO.b 



.-bits per word to be sub from : 
; subtract y:<sc from 24 to get usee cnt 
; & get last word bits available 
;sub used bit cnt from bits abvalable 
; see if another byte can be decoded 



_ancd_60.\ 

•since we have not reached the last frame word, we must see if we're at 
• the next to last frame, and if not, keep decoding ancillary data cytes 



move 

nop 

move 

move 

cmp 

jne 



rCrl; 

IrU- 
rl,a 
x0,a ; 
ancd 75 



;end frame word address: 
; thi s pains me 

;back up to next to last addr . 
;for comparison 

;is curr frame word - end - 1 frame word 
;if not, decode the next data byte 



;we have reached the next to last frame word, . ■ - ' . 

* add bits from the last frame word to those remaining in this byte 

• -* -here is a byte's worth of bits, decode another ancillary data byte 



add 



y0,b 



.-add number of bits ir. last word 



ancd 70 



cmp 
jit 



xl.b. 
ancd 80 



;see if a byte fits in. the bits ±eft 
; no more bytes, gc update byte count 



_ancd_7S ' ' 

; there is room for. another byte, let's get it 



jsr ■ getvalue ... 
move. y: Ir2*n2) #xl * 

and ' *-xi;-a ,-. ■ (r3 :• * 



.-retreive the next byte from the frame 
jtnasic of f." high order one's ... 
rmask 1 off - high order one's. ' 
; &.,incr byte counter 



insert the byte ' into' the" . transmit buff er" 
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move al,y:(r5)+ . . ; putt the byte. out" 

;test to see that did. not exceed baud, rate byte count 



move 
move 
cmp 

jit ; 
jmp 



r3 , yO 

y:maxbytes,a 
y0,a 
_ancd_85 
ancoTso 



; count of data bytes just decoded 
;maxbytes tolerance decoded check. 
; check for frame alignment error 
;skip if too many bytes decoded 
;see if there is room for another 



_ancd_78 

; get the. count of ancillary data bytes, in the frame 



move 

move 

move 

jsr 

move 

and 

move 
tst 

3 e <3 



M B ITSPERBYTE , n4 

#masktbl , r2 

n4 ,ri2 

getvalue. 

y : (r2+n21 ,xl 

xl,a #0/r3 . 



al, a 
ancd 90 



y rdataiptr, r5 



;bits in the ancillary data byte count 

;set addr of the . masking table 

; get hi order bit mask index 

; get pad byte count from frame 

;get mask off high order one's 

; mask off high order one's 

; & zero decoded byte counter 

; clean up for a zero test 

;test if any data bytes included- 

; & set addr of next byte to be stored 

;no data bytes in frame, we're dene 



;tnake sure the data byte count is valid vs the max bytes at this baud race 



move y : maxbytes , xO 

cmp xO , a 

jgt . _ ancd_85. : 



;get max bytes ® baud rate 

;comp byte count from frame to max 

; if number is too big, skip data 



; now get the bytes. and store in the buffer for the trasmit interrupt 

move #DATABUT1-EN- 1 , ra5 ;set circular buffer 

;get the count of ancillary data bytes in the frame. 

; bytes are stored in the reverse order received by encoder. 

do a,_ancd_80 

;get the next ancillary data byte 



jsr 
move 
and , 



getvalue .. 
y: (r2+n2) ,xl 
xl.a (r3N 



;retreive the next byte from the frame 
,-mask off high order one's 
;tnask off high. order one's 
; & incr byte counter 



; insert the byte into the transmit buffer. 

move . al,y: <r5>* ;put the byte out 

_ancd_B 0 •' 

; temporarily disable the interrupt for data received/ 



bclr 
nop 

nop'.; 



#M_TIE,x:«<M_SCR 
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" nop ' : - . . 

; while waiting for interrupt to. take effect:. 

make a tolerance check of the frame's alignment to make sure 
\ we haven't decoded more data bytes than xs possible 
: if we have decoded too many bytes, 

; .skip. the' junk, just decoded by: ignoring the results of this frame . 

move r3,y0 . . : ; count cf data bytes 3 us t decoded 

move y:maxbytes,a . ;maxbytes tolerance decoded check.. ." 

cmp yO.a y:bytecnt/a . ;check for frame alignment error 

; 4 get latest byte cnt of unsent bytes 
jit _ancd_85 ; skip if too many bytes decoded 

.•interrupt should. now be disabled and we can". safely update count ofunser.t bytes 

add yO.a r5,y :dataxptr . ;add count of bytes just framed 

-■'-= ; & save addr; of next byte next frame . 

move a,y:bytecnt ; save new unsent byte count, 

jmp . . _ancd_89 ; reset interrupt 

_ancd_85 

;a problem decoding ancillary data may indicate a stream; of frames from 
some. other manufacturer 

° r if the frames are from a CCS encoder that is encoding old CCS CDC200C ' .. 
two- channel frames at a low bit rate that, is incorrectly using 
the wrong allowed table BUT. has an old CCS CRC- 16 checksum 

; • : idbg 

■nop • ' 

■ nop ' 

nop' ' • , . ' 

".' nop " • 
. • nop ' 
' ; i : : dbg ' 

jset *CRC OLD vs NEW.y : ectif igs, ^ancd_89 ;if ISC CRC. continue 

;: : Idbg . ~. v.--. ; ■ " . 

nop '. 
'• nop' • ' : 

' nop '.• ; ...... 

■ ■ nop 

: nop ' ■ . . •• . ' • 

. • 1 'dbc " ■ 

bset #2,y:oldccs ;show. problem to switch to old CCS 

" _ancd_8 5 

..•turn the transmit byte interrupt back on 

.bset - ■ #M_TIE.x:<<M_SCR ■' " ;enable transmit interrupt / 

rreturn after all byres decoded and counted . 
move. 



y:linear,mO . ;uncircular buffer, 

move., mo, ml-;,. ;uncircular buffer 

move m0,m5 - ;uncircuiar buffer 



ancd 5C 
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Opt fC . ;' 

(ci 1991. Copyright Corporate Computer. Systems, Inc. All rights reserved. 
\URDCDSYN\getbal.asm: BEN y:<frmtype y:<sibound 

title' .'Get bit allocations^; 
This routine is used to. get the bit allocations of each of the sub-bands. 
It is from the ISO standard. 

sub-band 0 '-. 10 use 4 bits (11 * 4 « 44. bits) 
sub -band 11 - 22 use 3 bits . (12 .* 3 « 36 bits) 
sub-band 23 - 26 use 2 bits .{ 4 * 2 '■« 9 bins) 

( total « .88 bits) 

on entry ' ■ 

rO » address of bit allocation array for both left and right : channe 

r6 -current offset in the input array • 
n6 » base address of the input array 

y:<raaxsubs - MAX SUB BANDS at sampling race and bit rate 
y:sc « shift count of -current input word 
y : f rmtype V full stereo, joint stereo or mono 
y.-sibound e joint stereo sub-band intensity bound 
x:crcbits '» accumulator. of bits covered by CRC- 16 routine 
(bit allocation bits are accumulated) 

on :exit ■ 

■ xS -updated 
y:sc « updated . 

a « destroyed . . 
b « destroyed 
xO ■ destroyed' 
xl - destroyed- ■. 
yO « destroyed 
yl o destroyed. 
rO « destroyed 

■ rl - destroyed 
r2 » destroyed 
r4 • destroyed 
n4 - destroyed 

'■ include 'def.asm' . 

section highmisc 
xdef / ' . masktbl ' ■ 
xdef . • tbl 



' org 
stgetbal_yhe 

masktbl 



yhe: 



dc 


soooooo 


dc 


sooocoi 


dc 


S000C03 


dc 


S000007 


dc 


:. SOOOOOf 


dc 


:-S00001f 



•place holder . in mask table 
;mask table for 1 bit getvalue 
;mask table for 2 bit. getvalue 
;mask table for 3 bit getvalue- 
Vmask table for. 4 bit getvalue 
;mask table for 5 bit getvalue 
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QC 


$00003f 


dc'".' 1 


$00007f 


dc 


SOOOOff 


dc 


$0001ff 


dc 


S0003ff 


dc . 


$0007ff 


dc 


SOOOfff 


dc 


r SOOlfff 


dc 


$003f f f 


dc 


. $007fff 


dc 


; $oo.ffff 


dc 


$01ffff 


dc : 


$03ffff 


dc 


$07ffff 


dc . 


SOfffff 


dc 


Slfffff 


dc 


S3fffff, 


dc 


$7fffff 


dc 


$ffffff 



;mas* 
;mask 
;mas}c 
.mask 
,-mask 
,-mask 
; mask 
;mask 
;mask 
;mask 
; mask 
;mask 
;mask 
;mask 
/mask 
.•mask 
.-mask 
;mask 
.-mask 



cable 
table 
cable 
cable 
cable 
table 
table 
table 
table 
table 
table 
table 
table 
table 
table 
table 
table 
table 
table 



for S 
f or 7 
for 8 
for 9 
for 10 
for 11 
for 12 
for 13 
for 14 
for 15 
fcr 16 
for 17 
for 18 
for 19 
for 20 
for 21 
for 22 
for 23 
for 24 



bit getvalue . 
bit getvalue 
bit getvalue : 
bic getvalue 
1 bit getvalue 
bit gecvalue 
bit : getvalue 
bit getvalue 
bit getvalue 
bit getvalue 
bit getvalue 
bit getvalue 
bit getvalue 
bit getvalue: 
bit getvalue 
bit gecvalue , 
bit getvalue 
bit getvalue 
bit getvalue 



.-define daca size table for the getvalue routine to extract data 



tbl 



dc 


$000000 


dc 


$000001 


dc 


. $000002 


dc 


$000004 


dc . 


. $000008 


dc 


$000010 


dc 


•'. $000020 


dc 


$000040 


dc . 


, $000080 


dc 


• $000100 


dc 


$000200 


do 


. $000400 


dc 


$000800 


dc 


$001000 


dc 


$002000 


dc 


$004000 


dc 


$008000 


dc 


$010000 


dC; 


$020000 


dc 


$040000 


dc ." 


$080000 


dc . 


$100000 


dc - 


S200000 


dc 


S400000 


dc 


$800000 



endgetbal_yhe 
endsec 



section highmisc 
xdef skftbl 
xdef skftbl 1 
xdef skftbl~2 
xdef skf tbl"3 



: ;bits . 
; shift 
; shi ft 
; shift 
.-shift 
; shift 
shift 
;shift 
; shift 
.-shift 
; shift 
; shift 
; shift 
; shift 
;shif t 
; shift 
.-shift 
.-shift 
; shift 
;shif t 
; shift 
; shift 
.-shift 
.-shift 
.-shift 



o. 
left 
left 
left 
left 
left 
left 
left, 
left 
left 
left 
left- 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 



03 
04 



place holder 

01 bits 

02 bits 
bits . 
bits . 

05 bits 
0€ bits 

07 bits . 

08 bits . 

09 bits . 

10 bits 

11 bits- : 

12 bits 

13 bits 

14 bits 

15 bits 

16 bits 

17 bics 

18 bits 

19 bits 

20 bits 

21 bits 

22 bits . 

23 bits 

24 bits 



org ' 
stgetbal^xhe 



. xhe : 
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;address of BAL' s bit cable as per Allowed table selected; . 
skftbl da : 1 •; 

; These tables is the number of bits used, by the scale factor in each sub -band 
; High sampling rates with higher bit rate framing 



skftbl 1 



■~ dc 


.'• 4 


"• dc . 


4 


- dc 


■ 4' 


;• dc . 


4 


dc 


4 


. dc 


4 


' . dc • ' 


' 4 


. dc 


4: 


dc " 


■ ' 4' 


dc 


4 


dc .' 


4 ' 


"• dc 


3 


dc 


3 


dc 


3 


. dc 


3 


dc 


3 


•■" dc . . 


3 


dc 


3 


. : dc 


3 


' dc 


3 


dc 


3 


dc 


3 


dc 


3 


dc . 


2 


dc • 


2 


dc 


2. 


dc 


2 


;end table 3 


-B.2a 


dc 


2 


dc 


2 


dc 


2 


; end table 3 


-B.2b 


dc ■ ' 


2 


• dc. 


■'■\'2 



;sub- 
;sub- 
; Sub- 
; Sub- 
;Sub- 
; SUb; 
;SUb 
;sub- 
;sub 
; sub 
;sub 



band 
band 
band 
band 
band 
band 
band 
band 
-band 8 
band 9 
band 10 



0 

1. 
2 
3 
4 
5 
6 
7. 



;$ub- 
;Sub- 

;sub 
; sub 
;sub 
;sub 
;SUb 
;sub 
;SUb 
;SUb 
;SUb 
;sub 



band 
band 
band 
band 14 ; 
band 15 
band 16 
band 17 
band 18 
band 19 
■band 20 
-band 21 
band 22 



11 
12 
13 



; sub- band 23 
; sub- band 24 
; sub -band 25 
; sub -band 26 

; sub -band 27 
; sub -band 28 
; sub -band 29 

; sub -band 30 
; sub-band 31 



High sampling rates with lower bit rate framing 



skftbl 2 



dc 


4 


dc ;. 


. 4 : 


dc 


3 


dc 


3 


dc 


3 


dc : 


3 


dc. 


3 


dc 


• 3 



; sub -band 0 
; sub- band 1 



; sub -band 
; sub -band 
; sub -band 
; sub -band 
; sub -band 
; sub -band 
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,-end cable 3 -8. 2c 



" dc. 


■ 3 : 


; sub- band 8 


dc 


3 


. ; sub-band 9 


dc 


3 


; sub-band 10 


. dc 


3 


; sub -band 11 


;end cable 3-B 


2d 




dc 


. 3 ; 


; sub -band 12 


'dc . 


3 


; sub -band 13 


dc 


• 3 . ' 


; sub -band. 14 


dc '. . : 


3 •' 


. sub-band 15: 


■dc. • 


3' 


. sub -band 16 


• ■ dc 


M' .. 


; sub -band 1? 


dc 


" 3 


; sub -band 18 


dc 


3 


; sub -band 19 


'■ dc ' ■ 


3 


; sub -band 20 


• dc ■ • 


* 3 • 


\ ; sub -band 21 


: • dc 


3 


; sub -band 22 


. dc " 


3 


; sub -band 23 


, dc * ■ 


3 


; sub -band 24 


• ' dc 


: 3 ... 


; "; sub -band 25. 


dc ■ 


3 ; 


; sub -band 26 


. dc 


3 . 


; sub-band 27 


' dc . 


3 


; sub-band 28 


dc . 


■ 3 . 


sub -band 29 


dc. • 


3 


; sub-band 30 


■ dc ; 


3 


; sub- band .31 



;. Low/sampling races 

sJcfcbl 3 . 

" dc 4 • 

dc . -.4 . 

dc . 4 

dc 4 

. dc 3 

dc -.'3 • 

dc . 3 

■ dc ■ . . 3 

dc . 3 ' 

• dc ... 3 

dc : 3 



dc 


2 


dc ; 


2 


dc 


2 


dc 


2 


dc ..... 


2 


dc 


2 


dc 


2 


dc 


2 


dc 


: 2 


dc : 


2 


dc 


."■ ■ 2 


dc 


2 


dc 


2 


dc 


2 


dc 


2 


dc 


2 


dc 


2 



; sub-band 0 
; sub -band 1 
; sub -band 2 
; sub-band 3 . 

; sub-band 4 
. ; sub-band 5".. 
; sub-band 6 
; sub-band 7 / 
; sub -band 8 . 
; sub-band 9 
, ; sub-band .10 

; sub-band 11 
; sub-band 12 . : 
; sub-band 13 
; sub-band 14 
; sub- band 15. 
. ; sub-band 16 ^ 
; sub-band 17 . 
; sub-band 18; 
; sub -band 19./. 
; sub -band 20 
; sub- band 21 
; sub -band 22 
; sub-band 23 
• sub-band 24 
; sub-band 25 .'. 
; ■ ; sub-band 26 .-. 
? sub -band : : 27 . ■ 
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dc 
' dc 
;er.d table 3- 
dc 

• dc 



B.l 



2 
2 



; sub-band 26 

; sub -band 29 

; sub -band 30 

; sub -band 31 



endgetbal_xhe , 
endsec 

org 

..; initialize : 



phe : 



a . 
b. 



c. 



rl wi 



:art of subband. allocation table of bits in frame per cub-band 
nD o'fset fcr right channel sub-band bit allocation values: 
left channel from. C to (NUMSUB BANDS - 1) 

riaht channel from NUMSUB BANDS to ((2 * NUMSUBBANDSi - l) 
-3 set with joint stereo sub-band boundary for stereo, intensity: 
4 (4-31), 8 (8-31J. 12 (12-31) or. 16 (16-31). 



getbal 



move xrskftbl.rl 
move : fcmasktbl , r2 

move - . # NUMSUB BANDS . nO 
move y : s ibound , r 3 
move xrcrcbits.rS 



,- offset for right channel; 

;decr stereo intens sub -band ctr 

; get CRC-16 bit counter 



; loop 
;bit 
; a. 

; b. 

; d! 
; e. 
; f. 



9v 
h. 



■ through the sub-bands extracting the left and right; (if applicable^ 
allocation index values (y:<maxsubs -fixed count of sub-bands framed): 
'or current sub-band get the number of bits for allocation index value -.. 
and increment address of the next sub-band bit count; 
get the bit allocation for the left channel always 

b register isolate the type of frame: full stereo, joint stereo or mono 
yO holds . the mono frame type code for. testing 
yl holds the joint stereo frame type code for testing 
see if the frame type is. joint stereo and just m case, move the 
current stereo intensity sub-band boundary counter value for testing 
if not joint stereo, see if this is a mono frame type 

if it is Toint stereo: ' • . ' ' 

* tes- if the boundary counter has reached zero, and just m case i- has. 

restore the left channel bit allocation value to the al register 
2 if the counter is zero, go to copy left channel into the right channel 
3' if no gS to extrac: the full stereo right channel allocation value 



do y:imaxsubs,_getb_40 

move. x: (rl) +.n4 

move n4,n2 . 

move n4,n5 

jsr . . getvalue 

move y:(r2*n2),xl 

move (r5>+n5 . 

and xl, a y:frmtype.b 

move al.x: (r0) ■'{ \ 

move. f >MONO,y0 

move' ■ #>JOINT__STER£0,yl ,. 

cmp yl.b r3.a 

jne ■ getb 10 

xst \ a .• x: <r0) ,-ai 
; j eq , . " _9 et k_^ 0 
.' move ■' : Tr3 ) : 



;get # of bits to read - 
; ge t hi order bit mask index . 
•to accumulate CRC-16 bits 
;get a left chan bit -allocation 
;mask for high order one's 
;accum bits for CRC-16 rtn 
;mask off high order one's 
; & set. for frame type compare 
;set left .channel ■ 
;ck for no right channel 
;ck for intensity. sub-band • 
; check for stereo intensity 
;if hot. see if mohc 
.•reached bound, restore left vs 
;yes, left val to right. val 
;nc. deer intens sub- band cntr 
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jmp- 



aetb 2 j 



and retreive right char, value 



•test fcr a mono type of frame and just in case it is, set a: to zero 

for" insert ion" into the right channel for consistency 
•if i- is mono, gc to move the right channel value 
"otherwise, fall through to full stereo ■ • 



_getb_10 



cmp 



yO.b #0,al 
_getb_30. 



; i f . mono , insert " 0 f cr right 



•full stereo/ extract the right channel bit allocation value 
lgetb_2C 



?sr 
move 
move 
and 



getvalue 
y : \ T2+n2'i , XZ 
lrS)+n5 
xl . a 



[•insert the right channel value (nO .offset: 
; increment for" the next sub-band 



_getb_3C 



move 
move 



al.x: (r0+n0* 
tr0)> . 



,-get a right char* bit allocation 
;mask for high crder one's 
,-accum bits for CRC-16 rtn 
;tnask off high order one's 



.•right channel sub - band allcc 
;incr fcr next sub-band 



_ge tb_4 0 

• the unused sub -bands with 0 bit allocation 

! This allows getdata to process . these sub- bands- normally and insert o 
; 'data -in them. 



clr . 
move 
sub 
dc 

move 
move 



_getb_50 



move 
rts 



a #>NUMSUBBANDS.b 

y : <maxsubs , xC 

xO.b 

b. getb_50 
a.x: (rO+nO) 
a.x: trO) ♦ 



r5,x:crcbits 



.•current MAXSUBBANDS 

; equals unused sub -bands 

; right channel 

;left chan & incr for nex: 



•store updated CRC-16 bit counte: 
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opt f - * mex 

id 1995. Copyright Corporate Computer Systems, Inc. All rights reserved. 
.\DGCST\rmicrmus. asm: with Reed Solomon decoding ;''.'•• 
title- ' Main* 

'27/4/93:-- nricrmus . asm version cf cdq20CO klSICAM (rdcdsyr.t . asm] for. micro. 

^ # # # % # ^ ^ # w *»»#•**»#***•»•••••#•#*•******•****•**.*****♦***•******** . 

06/26/91: : (dsb t'lwh) 

NOTE: Never use m4 to' control a circular buff cr.i The interrupt routine.,. 
ssirec.asm has been sped up by using m4 and then restoring it 
to a linear buffer.. \ 

»»«»♦»♦*##»»**•♦•**••**••***••***••***♦*♦•*** *"******•**•••*•* 



; This, routine does it all for the decoder'.;.. 

•■.' include 'def.asm' . '"v 
." ' include ' . . \ common \ioegu. asm* 
include • box_ctl .asm'. 

■section highmisc ■ 
• xdef . SBndSKF .• • ' ' . 

xdef ASMData , ;set A cf 192 inverse quantized ; -ir 

'org xhe: . 
strmicrc_xhe ' 

SBndSKF ds ; KUMSUBBANDS *NPERGROUP * 2 : 1 e f t. & right sub-band scale factcrs 
ASMData ds NUMSUB BANDS * NPERGROUP * 2 ;192 samples per 1 group of 3 samples 

; for 32 sub^bands. from both channels 

endrmicro_xhe 

■ • endsec • • • ; ' • 

section highmisc • 
-xdef- chcksum . 
xdef • frmsiie . • " ' 

xdef . . frmemod - ^ 

; xdef. . frmhalf - 
xdef f ramesz 

xdef .. 'oof. '..'•.- : 
xdef voof : ! : 

xdef.' poof. 

xdef- - doof " " 
xdef- ' IPwrdoff - 
xdef IPbitoff 
. .. xdef - ■ wrdof f 
-xdef- . bitoff 
. ■ xdef ' •■. dcdfrwod 
".* - -xdef--"- sveidbit;- . 
xdef sverate 
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■ xdef 
xdef. 
xdef 
. ... xdef 
• xdef 
xdef 
xdef 

.. xdef 
xdef . 
xdef 
xdef 
xdef 
xdef: 

: xdef " 
xdef 

1 xdef 

' ■ org . ■'■ 
strmicro_yhe . 

chcksum ds 
frmsize ds 
f rmemod ds . 
frmhalf ds 
framesr ds 
; successive f 

; V • OOf 
VOCf 

poof 

; dOOf 

oof ; ds 
vocf ds 
poof ds .' 
- doof ds ..." 
IPwrdoff 
IPbitoff - 
wrdoff 
bitoff 
dcdf rmod 



. svesmpl " 

smplcde ' y 
'titrate, 
inpaddr 

frmrate ; : \ " • ;/ 

. . smplrte ''. , 

.ipucede- .-'•*'. 
smplidbit. 
maxsubs_l ; 
, ' maxsubs_2 '• • 
oldccs . 
bit errs • 
/• fade •; •'• • 

; fadecnt 
.' f rtries 

". samping , bier aces , baudclk 

•;. yhe : 7 ■'• •'. '; , 

. . ; hold checksum from coded frame 

t : ; number of words in a frame 

. 7 -numb words in. 2 frames - 1 mod buffer 

7 . .-';i/2 words in framed buf (rd ptr check; 

7 . ;size of framing inpuc mod buffer ctl 

raming faults: , . . 

. out-of-frame sync pattern failures K . • 



1; ; 

1 
. ds 
ds 
dc 
dc 
ds 



out-of-frame faults: numb of oof's ■iO-NOOF) 
number of voof's (0-NOOFJ . 
CRC protection faults: numb of poof's 'C-NOOFr 
ancil data with old CCS CRC-16: doof 'S (0-NOOFI 
; frame i/p word offset from start of buf fer 
ifratne i/p bit offset from msb . . 
; frame decoding word offset from, start of =u.fe_ 
; f rame -decoding bit offset from mst 
• frame buf circ buf mod ctl 



these are for auto 



detect as requested by switches 



. sveidbit 
sverate 
svesmpl 
smplcde ■ 
bitrate 

inpaddr ds 
f rmrate dc 



smplrte dc 
iputcde dc 
smplidbit . 



maxsubs_ 



ds 
ds 
ds 
ds 
ds 



d . 
o ■ 
dc: 



. ds. 



; ISC sampling id bit from' frame deader ::low/high 
•ISO bit rate from frame header:- lo/hi .Kb.- ra.e 
'; ISO sampling rate from frame header: iow/high 
ISO sampling rate from on select sws:iow/h.gh 
.-ISO bit rate from, select sws-. lo/r.i Kb r - rate. 

•hold i/p buf addr to restore after save 
■ --dip switch ii'.bit? indicate . which ... 
• - of 2 selectable' bit- rates:- .* 

; bit rate sets numb words in a frame: 
0 - lower Kbit rate 
. . i • higher Kbit rate 
,';i/p PCM data sampling rate ^ 
;0 - MUSCIMAM frames. 1 « 3*72* 
■'■7 ; "'; -jiso hdr' id- bit:. 



data.', i/p 



. 32 -or 48 K sampling .rate. 

rate 



C -16 cr 24 K sampur 
•MAXSUBBANUS if MONO frames . . 
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maxsuDS_2 
cldccs ~ 

biterrs ds 
fade ds 
f adecnr ds 
.frtnes dc 



ds 
ds 

l . 
1 



SAMPLE RATES 

BXTRATES 

BACDCLK 



endrmicro_yhe 
■ endsec 



-155- 



;MAXSUBBANDS If 2 channel frames . . 
;bit .0 • 1 to decode old- CCS CTClCCt 
; . 0 means MPEG- ISC frames " 

'..•count successive bit errors 
.. . : ;in case ..of fade volume output ctl ■ . 
;in case of fade volume output ctl 
,-count framing to reboot if too many 

; table of sample rate variables 

..•table, cf framing bit. rate variables 

.; table : of specified ancillary data rates ' ■ - 



;The variables below are defined in lowmisc in low y memory and mus: 
; below address; 40 to make use of short addressing. 



ne located 



section lowmisc 

xdef word_out , word_in , not_appl 

xdef . f rmtype ■. ~ " 

xdef sibound 

xdef :' - ctlf Igs - .. 

xdef maxsubs 

xdef protect 

xdef inpstat 

xdef . ■ inpsize . 

xdef . temp * 

xdef". olwptr, orwptr 

xdef ■ linear' 



org . 

strmicrc_yl'i 

word__out . 
wcrd~in " 
not_appl 
f rmtype ds , 



sibound ds 



-gs as 



Vll: 



ds 
ds 
ds 

1.. 



1 .-applicable hardware outputs tleds, switches) 

1 ; applicable hardware inputs (switches, lines; 

1 .-satisfy non- applicable hardware settings. 

..//from coded frame indicates: 
- 00 » (0) full stereo 

• 01 « (1) joint stereo 
;. 10 - (2) dual channel 

. : II" •.■',(3). 'mono . 11 channel) . • 

.-intensity subband boundary alloc addr 
. ■ ..-control indicators in certain tits: ■ 
."; tit. 0 - STERE0_vs_K0N0: . 
; '; • 0 - stereo ~ . . 
;• /■ I' - mono . 
; bit. 2 » joint .stereo or hot. . 
. 6 » NOT joint ' 

. i. «• joint. -stereo frame 

;bits 6, 7 and 8 indicate protection 
;was a -saved frame used 0»no; i«yes 
; bit 6 is overwritten when validating 
the .checksum af ter getscits : . 
'if C « checksum valid. .. 
"; use the. frame in ■ progress. . . ■■ 
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, ; . ' ; . ". -'-156.: • ; • • V; ;- 

, and'. save it when, finished 
' ' if 1 « checksum failed, - 

. ■; use previous saved frame 

" ; and bypass saving it when done 

. ;"bit 7 indicates if a saved frame.; 
has been stored: ,' 
. > / ' ; ■ 0 « no saved frame 

1 - yes a saved frame 
; bit 8 indicates to. getvalue this 
is a good frame to store: 
' ' ; . .0 «. do* not store in save area' -'' 

• I ■ do store in save area . 
, bit IS indicates whether the frame ; 

is coded with CRC protection cr not" 
■ ; -\ 0 - no CRC16 checksum' 

; •. 1 « yes CRC16 checksum included 

• ; bit ' 19 is for mono output, only when 
■- ; one .channel is used for output ' and 
■ ■che. other. is to be .muted 
; (see bit 20) : : • 

. • ; 0 » left channel fcr output 

1 - right channel for output ,'■' 
• ; bit 20 is. for mono, output only and 

specifies if the mono. is. to output . 
to one. or both channels; 
; :.' .0 • both ■' channels 
' - 1 - one -channel 'only. 

. as defined by- bit 19 

maxsubs ds .1 ; working MAXSUBBANDS 

protect ds 1 ; flag for CRC checksum protection: 

bit- 0: 0 » yes, 1 ■ no 
inpstat ds 1 " S .V . ;state of data collection . 

inpsize ds 1 ;used by ssirec to set mod buffer i/p 

temp" ds . 1. . : ;use by ssixrate for temp storage 

oiwptr ds • 1 .. r ' ; output left write pointer 

■ orwptr' ds ' 1 -•" ; output right write pointer 

linear - ds ' ' i / 7 ; value . -1 to. reset regs to linear, buffs 

endrmicro_yli . 
• endsec . . ' : - 

org • phe: . 

start 

; :un cff the Interrupt system 
on ■ --• #$03, mr 

"nop - . .. ; ; • . * '., . : . 

."nop ' 
. .• • • nop.'- ■ \" - '/• '. 

movep #sb001.x:<c<M_BCR ;set all external io wait states 

;set dspS6002 clock to selected MHz (PLL Control Register) .' ' 
R£ECODS_M_PCTL . ,'. : /'''- 

; ■ jsr - ■ <initdeb '* ' ■ ;:init the debug' port .. 

.; raove ' . *5~2D906,a . . / '- \ 
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. . . . jsr' . . out hex - / 
- jsr ' <- r :'. . ;' '• 

^initialize the volume, output .fade .control ' . 

;FD . ' clr a. ' ' '•' - V 

; FD- move.. a, y -.fade 
• FD . ! move a.y:fadecr.t 

; PORT C Assignments " 

9 » ssi port . 
'; i ■ input port 
; o .« output port 

; 8 - 7 6 5 4 -'3.2 1 C. ' ■ : - ' ■ 

.; s s s s s s i s s - • 

V . «OEC03E_PORT_C_ M _ ? CC ;Se: C^ccncr^ regisrer^cr general :^ 

■ B-r^^nr por C M ?CZ~ ; set the de:au*. o-tputs 

. ^i^Dil^RrlcXPCDDR ;se.t C register direction . 

; initialize the ssi port for the input from the xmitter . 

RDECODE SSI M CRA ; v . ;set ssi era register 
■SectOsiXcrb ;set ssi.crb register. 

; initialize the sci port for tty 

REECODE.SCI.K.SCR /set sci status control register 

■ ; PORT B Assignments 
.i ■ input port 

; o • output pert • . \, 

: ' : 14 13 12 - 11" 10 9 B • 7 6 5 4 - 3 2 1 0- ' 

|oo c o o o o o i i l - * 1 1 , . 

' ; RDECODE PORT_ B_M PBC . ; s e t 3 £ e ou t pu t s ^ ^ ^ 

onrmnr port B M PBD ;set the default outputs 

• '.' move «>ON LEDS.DCS.b V:.; flash the LESS on 

«^ WOrd -° UC V - ;clear the DAC res« line ~ mu-,e ; ou-.p'- 

• CLR DAC_RESn.* - 
OK LO SAMPLE_RATE_L£D_DCD \ . 

■ ON~H -""SAMPLE RATE_LED__DCw : , . 
. SET LESS _DCD 

. INTERRUPT' H0ST_DCD ... ' 
/ move #>RDCDSYKT_STARrJP. a 

jsr. ■ , : <wait . t - . - .; " 

- ;inic ialize the linear buffer value for mX 

■ . m V m0 : v : ;reset ; toa. linear buffer . 

move. ■. #--.,mo^ 
: nove . . m0 ,y. clinear r;. 

• . ^- -h- 'auiic seiecV cesc cable =^ "K?/?Ua^ kiC 
V^hlsiabJ .1 u*.«:ry.«i:h.2;*ra«.: lengtn. . sample/*-. -*ags . . 
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;£ f lac wcr3 indicates sample rate 
If fiao word indicates' framing bit 



low , . 



rate 



low, .1 * -high 



move- 

move 

move 

move 

move 

move 

move 

move 

move 

move 

move 

move , 

move 

move 

move 

move 

move. 

move 



IHautotbi.ro 
#testtbl.rl. 
x: tr0> + ,x0 
xO ,x: (rl) 
:#>l,xO 
X0,x: <rl">*\ 
x: (rC.)~,xO 
xC.x: (rli*. 
#>3,x0 

xO.x: trl) *. 
x: :rC> + .xQ 
. xC.xr'Crl)- : 
*D.x3' 
xO.x: irl)* 
x: trOi + *x0 
xO,x: (rl) 
#>2.x0 
XO.X: (rl) : 



; set start-up auto. selects 

bset . . *0,x:autorate 
, • bset \ *0.x: autocode 

.■"""'bset.'- #0 , x : autosnqpl:.. 



; table of selectable frame .lengths 
.•table to test from. 
;get 1st entry- frame length 
. ;store smallest frame 
; indicate high sample/low bit rates 



; 2nd smallest frame . 
^indicate high sample/high bit " rates 

; 2nd largest frame" .- 

; indicate low sample/low bit rates . 



/largest frame 

.•indicate low sample /high bit . rates 



;with lower bit rate 
;as MUSI CAM 

;at low sample. rate 24.00G 



re star: 



CUt DAC_RESET - 

:nterrupt_host_do . 

-urr 'off -he interrupt system 
set the interrupt for host interrupts 
HOST set- to I PL 2 - 



; clear the DAC reset line to mute outpu: 



movep 
andi 



'# >S0800 . x: <*M_IPR 
asfcmr 



;set ir.t pricrities and edges 
[•turn on. the interrupt system 



• ; ; - ori ' ' ' *S03/mr 

.-disable the ancillary data transmit interrupt 
■ bclr #K_7IE; X : «M_SCR 
bit 0 m v-inostat controls data collection from the outside 

; ass* itrnr;"!"^^ ^ ™* :• 

; is incremented. 

rir a #>0?F LEDS DCD.b- ^ s initialize: leds as of 1 

clr - ; a ,, n * " - * -state of the input, buf fer ■ 
move a,y:<mpsta. ^ ^ ^ — 



move 
. move 



a # y:<ctlf Igs/ 
a.y: <net_appl 



; decoding contrcl flags 



• clear any stubbed flags 
initialize the led output word and light initial leds ; ; 
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"•' ; ST^j«M B ^ < 3O d - 0Ue " ' ;light alar^ led indicater' v 

•&^i?fcjufe WIAV DCD._set_l.ed_0 unless already set. • ; . •. , ■ 
sS:SIrMRELAY_DCE- . .. :s« the alarm relay _me o- ■ ■ . 

_set_led_0_ ^ SAM?L£ RATE_LED_DCD 

o*ff"hiIsampleIhate_led_dcd 

~ " .......... • 

s —.—.- • • .......... 

;*♦••••* "tri^r w ' OWING DATA IS DECODED AND PUT INTO A HIGH MEMORY. 

; -ISVRk w^SrS X 5S data 5E the time whi^e the program 

I S M t5 fSz m tXt%0BE OF A WORD IS IN ERROR - 
* TEST DATA . • 

initialize the buffer. to be decoded for testing. 

orF.REEO.SC^LED.DCD ; .indicate no problem with Reed Solomon , 

v . , inear m , • • ;make sure it's linear buffer 

mOVe : * !-near'm3 \;maice sure it's linear buffer 

S \ ^;:i:near;m6 , . " ; ;-ice sure it's linear buff er , 

^^.-v^f n ; code the 1st of the encoded frames 

move * framebu ^f x0 2 ero the test value acoumulatcr 

c-r . a . * x * ; & tc increment, in the test buffer 

; set ^he:frame buffer to- sequentially incremented values 

• do.- '': #96,_initl . •• ' 

■add •• .'• xO,a • \. ' "'• • 

•' mcve al.x: lrl>- 

initl 

"dc the reed, solomon encoding, on the test frame buffer 

w ' e , -o/c pointer of buffer to be RS-DE30DEI 

move #syncbuf,r^ 'i/d pointer for CODED data to decode 

move !^r%f ; Reed Solomon profile: control decode 

• . move #PROFl,rJ -encode via reed sclomon 
■jsr-'--' <rsdecl6 



.test if the reed solomon codec worked or NO* 

' , . -ocinter for DECODED data to be stored 

move ;,.;jsyncbuf.r€ . /.Linear for the verification tabie 

move #framebuf.rl .. . . 

.verify that the; reed solomon - coded values are correct , . 

do ' #86,_RS_Chk -Get current coded data output 

move. x:(r€)*,xO '-Get precoded look up table value 

/move' .x:trl)-.a .. . \ compare 2 values 

- • cmp , . xu ;. fl • . t* SAKE No problem ■ - 

-eq • I=! ame /. : =■ indicate no probletr with ReeaSc,=mcn 



Same. 



* ON_REED_SOL_LED_DCD 
enddc 

nop :' 

noc 
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RS Chic 



SET LESS DCD 
INTERRUPT HOST DCD 



;mute current output buffer 



move . #outbuf,r7 ; setup. synth variables - 

. jsr ,<muteout ;mute the dac output/ buff er 




'; get 'the external switches to determine frame bit rate 
' ; and ancillary data baud rate. , • • 



GET_SWITCHES_DCD gsws_00 
jsr " ■"■ <getsws 



; MUSI CAM selections by switches set up prior to. possible auto select i 



move x: tstsmpl ,yl 

move yi , y : smplrte. ;set the i/p PCM sampling rate code 

move . x:tstcode,yl 

move yl,y:iputcde ■ ; set type. of i/p data MUSICAM vs G722 

■ move - x: tstrate.yl 
move, yl,y:frmrate ;set the frame rate i/p code 

.;!! !dsb 11/22/94 

;;;if no auto selection required. . go with the settings from the input switches 
• ; ; move . - fcautosel, rO 

; ; ■ ■ nop '■ • - ■ : ' . . 

; * jclr #0, x: (rO) ,_onward_. ;NO auto selection required 

; ! I !dsb 11/22/94 

;if the selection of MUSICAM ys G722 is not auto selected, 

; test for MUSICAM input data stream selected versus G722 data input stream 
and if G722 selected manually, boot rom file from lower half of the chip 



jset 
move 
tst 
jne 





;try for. MUSI CAM input data 



move 

nop 

nop 

nop : 



#autosel, rO 



jclr 



#0,x: <r0> ,_onward_. ;N0 auto selection 

for. MUSICAM_vs_G722. it must be G722 . 



required 



if auto - selec* 
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'. •. nop-" ■ ■ \ . "■. 

" ■. nop '■ . ,• y . •. "" 1 ' ■' ■ "" :-■ . ' •". 

nop ■ ■ 
.' j S ec #AUTO_SSLECT - DATA - TYP£,y:cctlf:gs,g722_boct 

/indicate nor MUSI CAM framed " ■,/-;.'-'.- 

ON FRAME LED_DCb" . ; set the framing" led alarm 

• INTERRUPT HOST_DCE. ... 

3 mp erestart . ;try for new switch settings 

. _onward_ 

/everything for MUSI CAM selected by' switches, or auto, selection 

move x: tstsmpl, yl - . ... 

move yl,y:smplrte ■ . ;;set the i/p PCM sampling rate, code - 

move ■ x : tstcode ,yl '' 

move. yi,y;iputcde : .... ; set type of i/p data MUSI s-AM vs 

■move-. x:tstrate,yl ■. . ■ : ' . \ , 

move yl,y:frmrate set the frame rate i/p code 

. move x: tstbaud,yl " ■ _'■ ' ' • 

move yl .yrbaudrte ;set ancillary data baud rate code 

; ;test for the diagnostic method of operation . ■ . ■' 
. . TST' CU*J3IAGNOSTICS_I>CD,_go_fwd ; if normal operation, continue . . 
;; diagnostic method of operation selected, reboot from.'the low portion, cf chip 
■[ . bclr . #ii > x:<<M PBD '. ;clr boot- cOOO for rdcddiag boot ' i.3Z?Z ' 

; • '.'.*: jmp ' . <bobtup -' 
;_gc_fwd. 

; set the values for the data collection W^J-. - 
• This is used for setting the value for the. mod buffer ctis 
v^raihesz input for purposes cf framing 

v-frmemod normal framed .input (double buffered- 2 frames; 

•but. setting the address of a buffer lyiinpwptr) can; t hurt either. 

: move -' #syncbuf,aO ' ; set input word pointer 

' - : '-■' mOV * 2S;LlhSf W SS r ;buffer addr of MUSI CAM decode buffer 

;- V :;- .'K r;;;: £ p~S-J .; •,; ; :,';; ^tore input buf addr .for saving frame 

; set access to the flags resulting from autosel framing pattern match: 

; ... bit C • sampling rate: .0 - low, l - high.; • 

bit 1 - framing bit rate:. 0 ■ low, * - nign ■ 

: • bit 2 , ISO vs old CCS: * 0 - ISO, 1 « old ccs CDCxCCO 

' "', bit 3 - CRC- 16 protection: 0 - yes, i - unprotected ..... 

/ .V' . move..' *chkflags.rl ; '•/; ;tc test results of autosel; match- 
:based cr. the sampling rate and framing bit rate selected: 
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:he sampling 



set : 
set : 
set the frame 



rate code for \ the ISO frame header ' 

rame header 



size, in words and bits 



move 


1 ' : #samplng, rO ■ 


. move 


y:smplrte,b 


■*■'.' '. tst ' : 


. b #10, no 




: <_smplcds_ 


rep ' 


' b 


move 


(r01 ♦nd 


_str.pl cds_ 




move 


#4, no 


jclr 


*2,x: (rl: , strip! cds 


move 


irC)+nO • .. ;. ":■ 


_STT.pi_cdS_ ' " 




~ move ; 


. y:.(rQ.< + ,x0 ■ 


move 


x0,y :smplcde 


move 


y:.(r0i ~,xC 


move 


x0.y:smplidbit 


. move 


y: (rc> -,xo 


move 


xC,y:maxsubs 1 


move 


y: trO) + ,xQ ~ 


move 


xC, y:maxsubs_2 


■ . move : 


y : f rmrate, b ~ 


move 


. tbitrates, rO 




b #8, no , 


jeq .. 


<_bit_off s_ . 


.rep-.- 


b : 


move . 


■ (rc; +n0 



;addr cf sampling rate codes 
;o.fset to sampling -ode table 
;test for sampling rate cf zero 

'if ^L r ?! iSCer to adva * c « thru table 
;if code is zero, we' re, there 



.•position to selected sampling rate, code 

;cffset MPEG-ISO vs eld CCS values 
;« ISO. rO is all set f=r ISO values 
;pffset to old CCS; CDC1CCG values 



; get frame header sampling code 
.-save code to match in the frame 
;get frame header sampling id bi< 
;save code to match in the frame 
;get 1 channel frame maximum sub- 
;save max sub-bands for decoding 
;get 2 channel frame maximum sub- 
;save max sub-bands for decoding 
;test bit rate to set audio data 
;addr. of framing bit rate info 
;test for rate of zero 
; & set register to advance thru 
;if code is zerc, we're there 



header 

header 

bands 

mono 

bands 

dual. 

size 



table 



;position to selected bit -.rate code 



>it_c-ffs_ 

L> . ■ ■ '- : ' ' ' . ■ \ ' ' ■ 
;set the table offset based oa sampl: 



.ng rate 



move 


y : smplrte, b 


tst • 


b: #4, no •• 


i«q 


_bit_smpl_ 


rep 


' ' b- "V ■ ' 


move 


•• CrCi+nO 


:_smpl_ 




move 


y: <rC)-,xC - 


• . jclr 


#2.x: '.ri;' . bit rate' 


move - 


y: irO) ,xc " - ~ - . ~ 


_ ra te_ • 




move 


xC,y:bitrate 


= move 


#>1,X0 


. ; move '• • 


. !r0>- •. • ■ ■ 


move 


. ■ y : <ro;..,b . 


: ■ move ' 


c ,y : f rmsi2e 


' . sub 


x:,b : 



;get the sample rate code : 

; test. if low sampling rate 

- & set offset to proper sampling rate 

;if low rate, addr is set 



.-position to selected sample rate 



;get ISO bit rate code ir. frame header 
;if ISC, x0 is all set with. ISO code 
;get old CCS bit rate code in frame her 



;save frame' header bit rate code 

;to subtract 1 for mod buffer ct I below ' 

;advance to sampling rate lengths 

;Jcbit/sec rate frame size m words 

; set/# of wcrdS' in a frame 

;tc set decode framebuf ^icd rtl 
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move". . bl. y :dcdfrmod .. ;se: MUSI CAM decode framebuf mcd ctl ■ • 

move y:frmsize.b . ;gec '* of words in a frame * 

.. . Isl . • b ; double buffer framed i/p buffer •.' 

sub xO.b #>NSBUFS,xl; '. .-subtract 1 for mod buffer control 

set number cf frames to check 
^move bl,y:£rmemod . ;save mod buffer control. - .2 frames 

. ' add xO.b y: frtr.size.yl ;re-add 1 to calculate 1 1/2 frame size" . 

and get full frame for below'. 
Isr - "b ;frame size divided by 2 

■'■ move. - bl.y.frmhalf ;save 1/2 frame size (1 full frame 

■ ■■ ■■ ;now calculate the framing buffer circular mod control size 

mpy xl,yl,a *>l,yC .-times frame size '• 

; and set up 1 to decrement ' 
asr a ./ ; align integer result 

move . -aO', a shift integer resuit 

sub yO.a ■ . . .; minus '1 for mod buffer contrcl 

move al ,y : f ramesz ;save framing mod buffer ccntrcl 

sec. up" for ancillary data to be decoded from a framed. and transmit via rs232 
; a. set address of clock tabie, baudcik, based on baud race (C thru T 

•. ; " bv set table cffsec by baud rate; 

■ ■ ; (these, are standard CDQ2CQ0. set by macro, BAUDCLK. in box ct^ .asm;: 

• ; 0-300 baud 

; .- 1 - 1200 baud - • . 

; . 2 '» 24 00 baud 

.; 3 * 3200 baud . ; 

; : • • . 4 • 4B00 baud'.' 

5 - 38400 baud' ".- 

; - 6 - 9600 baud . 

• 7 » 19200 baud 
' '■; '' c . sec transmit enable, 

' , ; . \d. gee and set the clock for baud rate from the table" 
• " e. adjust to the sampling rate' info '• 

f. get and set the max bytes for baud race from the cable 

move *baudclk,rO ' -\ ;get data baud rate table . address 

move y:baudrte,b . ;sec to access clock at baud rate 

bset *M_TE,x: <<M_SCR ;set transmit enable 

tsc . b #3.n0 . . ;test for rate cf zero 

, ■; & set register to advance thru cable -.' \ 
jeq <_baud_cds_"\ ' , ;if code is zero, we' re there 

' ' rep b 

move. " (r0>+n0 .-position to selected baud.'rate code .:. 

_baud_cds_ ' 

move y: (r0i -.r2 .. ;'get clock value at baud rate 

. move y:smplrte,nC . ..-now get sampling rate cffsec . 

. movep r2.x:<<K SCCR ;set the clock for selected baud, rate . 

'- move . ■ y : trp*n0T.nl ■ ;gec max byte count at sampling rate 

move r.l,y:maxbytes • ; store maxbytes .fcr scixrat tc check 

;set flags- fcr. sampling .rate and .type cf data received 

! !dbg ' . 

neve y:frmrate.b 

; ' 'est " r. - ' . • • • • • . •• 
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bit' io 



- SET_HI_3 IT_RATE_DCD 
SET_LO_B IT_RATE_DCD 



; l ! idbg 



; smpi 
idbg 



: !dba 



move 
tst 

.'jeq 

bset 
SET Jr 
imp" 



y : smplrte,b : 

b y : iputcde.b 

<_-ype_ . 

<_smpl_ lo_ 



idbg 



# SAMPLE RATE_LOW_vsJttGH,y:<Ctlflgs 
3AMPLE_RATE_DCD \~ - ' ... 

" <.-ype. ■ 



; : ! :dbc • . . ' ' 

; smpi lo ' 

; " ~ SET_LC_SAMPLEJUITE_:>CD 

/type. : ..; . '. 

; test for MUSICAM input data scream selected versus G722 data input stream 



tst 

:5«q 



b " 
<race 



;0 « MUSICAM. else 3722 
■ -if 0, .it's MUSICAM. test' bit rate 



:g722_boot 

•G722 input selected, signal the encoder ^ICRMUS^and 
boot up RMCRG722 from the . low portion of chip 

- " -2/7/1994 SET G 7 2 2 _DATA_DCD 

bset #MUSICAM_vsJ3722,y:<ctlfigs 



off frame led dcd 
off'crc error_led_dcd , 
off~monc led_dcd 
off'joint LED_DCD 
OFF~STER£0 LED DCD 
' OFF~LO BIT"RATE L£D_DCD. 

off~hO:t""rate_led_dcd 
, on g722 l£d_dcd 
off musTcam_led_dcd . _ 
c*f~lo sample rate led_dcd 

0FF~H:~SAMPLEIRATE~LED_DCD 

■ S£T~L£DS DCD 
INTERRUPT HOST_DCD ' 
bclr *Tl,x:<<M_PBD, 
jmp . /. < boot up ' 

rate_ 

• 1 ! idbg 

' '. ■ ; set_mus:cam_data_dcd .. ; 
; setup synth variables. 



douse the framing led alarm 
douse the crc error led alarm 
douse the. mono led indicator ■ 
douse the joint stereo led indicator 
douse the stereo led indicator • 



; light the; G722 front panel led 



'•set the leds as needed 

;clr bootcOOO for RMCRG722 boot 
;boot in RMCRG722 ■ 



:d:; 



: dbg 
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move 
move 
. move 
move 
jsr 



*outbuf.r7 
*2.n7 

#O0TBOF-l.in7 

r7,r0 

<alignptr 



•setup synch variables 
,set to skip left and right 
; set circular outbuf ctl 
; set up to : set read and: write ptrs 
" set ptrs 



; Now set priorites of the IRQA and. SSI peripherals 

; IRQA priority - c turned off 

.; HOST set to I PL 2 . y- •• 

; SSI priority. • 2 .. 

r SCI ' priority - 2 . 



. movec \#>Sa000,x:«M_IPR 

.■■'*■" movep #>$a800,x:<<M_:PR 

; : ! idebug tickle to see it chip booted 

;_loop 



;set int priorities and edges 
•set -int priorities and edges 



bset 
bclr 

^mp. 



WATCH DOG 
WATCH~DOG 
<_loop 



; wait for the dust to. settle before pushing onward 



.KM 



move #>RDCDSYNT - .STARTUP,a 
jsr . <wait 



andi ISfcmr / ; cum on\ the interrupt system 

; NOW we are alive with interrupts on! 
set the addresses of inbuf and nxtbuf to receive the input data. ' ; ; \ 

re frame • .. 

^clr: #MTIE,x:«M_SCR" X disable anc data . transmit interrupt; 

: .if GT22 data input, go to the RMCRG722 boot -up routine . 
jset #MUSlCAM^vs_G722,y:<ct:flgs.g722 - .boot 
;since it ' s musicam, keep in this routine and set indicators 

■ SET MUSI CAM DATA_DCD ,.' 
• ON MUS I CAM LEDJ>CD .-• . 
OFF G722 LED_DCD , , 

ON frams"led_dcd 
on"crc error_led.dcd 
off m0n0_lebj3cd. 
■ off" jo int led oct- ■ 

. , . OFFlSTEREC.LED_DCD., " 
; set micrc leds and indicators . 



•set the framing led alarm . . • , 

; set the crc error, led a*arm 

.set the mono led indicator 

; set the jcint stereo led indicator 

• set the stereo led indicator . . . • 



move #f rmrate.rp 

■ nop ' -'" 

-*set #0,v: (r0) ,_co_hi_ 
SETj-:>:T.kATE.OCD 



; test "for frame higher Kbit rate 
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ON LO BIT RAT£_L£D_DCD 
■0?F - HI.3I? RATS LED_DCD '.' 
jmp" ~ <_3o — co3ing_ 

do hi'"' ' 

~ ■ SET HI BIT RATE_DCD 

ON HI BIT RATE LED^DCC . / . 
. . . OFF_LC_BIT_RATE_LED_DCD . , 

_do r coding_^ #SAM ple_ratE_LOW_vs_HIGH, y :<ctlf lgs #- hi_rce_ ;test hi sample 
• : SET LO_SAMPLE RATE_DCD 
ON LO_SAMPLE RATE_LED_DCD 
. . OFF_HI_SAMPLE_RATE_LED_DCD 
: . jmp, <_do_plld_ •' 

■ hi rte 

.-" ~ ~ S ET_K I _S AMPLE RATE_DCD 

, ON HI SAMPLE RATE_LSD_DCD --. 
. OFF_LO_SAMPLE_RATE_LED_DC3 

_do_plld_ . 

; check the phase lock loop signal: . 

TST SET PHASE LOCK DCD,_set_PLL . • % ; J . ' . 

0FF"phaSE_LOCK_LED2dCD ; cum off phase lock led indicator - 

.- jmp ■ .. <_set_alm 
- Set - FLL 0N PHAS E_LOCK_LED_DCD . ';tum on phase lock led indicator 

~ Sfit ~*^ON_AIJ*RM_LED_DCD ; set alarm led indicator 

TST SET ALARM RELAY DCD,_set_led_A /unless already set, 
SETlALARM.REIJiy.DCD" - . . ; set the alarm relay line on 

. " Set - led SET LEDS DCD ^ ; set the leds as needed 

INTERRUPT_HOST_DCD 

; mute the audio output until we are framed 

jsr . cmuteout ; ? mute the dac output buff er ; 

controls to force a reboot if . an inordinate number of framing errors 

• a ;get frame tries 

TmS ™iES xO let number of tries tolerance 
; IZt UTio • •• get number o£ cries tolerance 

^ ■ ' to a #>1 V0 ..-make test U set up to incr count 

cmp . xc,a *>i,yw -kill watch dog, if reached tolerance 
; jge * 

■jit • <_dsb_dbg_ 

; if manual auto selection, do not force a reboot ' 
. move - ■ tfautosel, rO 
™? r ■ «o.x:(rOi._manual_restart . .-manual select . do not rebec-. 
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nop 
nop 
nop 
nop 
nop 
jmp 



;<restart • 
jnanual_restart 

; if in manual-: mode., zero the failure counter 



;kill watch dog 
;kill watch dog 



cir 
move 
nop 
nop ■ 

' nop - 

. 'nop,:;. 

nop ■" 

dsb " dba • 
" . ■■ ~. . "add 

move 
jsr 



a,y:f rtries 



<restar: 



yO.a ,. #syncbuf , rO 

a,y:f rtries 
<framit 



:n manual mode start, over 



; increment count of frames 
; & get address of sync buffer 
; update count of framing tries 
;and frame the data 



;test for successful framing, if not, restart 
tst . a r3,y:IPbitoff 



;test if framed ia = O.if framed) 
; St save the. bit offset 



jeq 
jne 
nop 
nop 

nop . ■ 
nop 
jmp * 



<_ok_ . 
<restart 



< re start 



; NO , . we must rest a r t 



_ok_ 

; since we have MUSI CAM frames, set the flag for auto select switches- 
bset ' ; #MUSICAM_INPOT_SET , y : <ct If lgs . 

indicate to encoder that the decoder is framed and .to use pins for:. 
; - MUSICAM vs G722 , 

I ( oc h erw^. V if H ^o S ^i«Id r a^ pin U is. still low., encoder operates 
. ; . at MUSICAM at che LOW sampling rase) . 

SET_DECODER_FRAKED_DCD . 

.•initialize the polysynthesis arrays i for. the 1st frame 

' " jsr : . <polysini ■ '•' 

; the a reg is returned as 0 to go oh " • • . - 

.•clear the successive. CRC-16 bit error sensed counter- 

• i' exceeded according to the chkcrc routine. autcmativ-ai.y reframe. 
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move 
move 

;. move 
move 
move 
move 

-bclr 
bclr 
bclr. 
bclr 
bclr 
bclr 



a, y :biterrs 
a.y:oof \ 
a,y:voof 
a. y :pocf 
a,y:doof ' 
rS,y:XPwrdoff 



/zero the bit error counter • - 
;zero out -of -frame faults counter 
;zero sample rate code faults counter 
;zero CRC protection code faults cour. 
;0 ancil data errors /eld CCS CRC- 15 c: 
save i/p buufer word offset 



It FIRST TIME. y:<ctlf Igs. ; clear the .indicator 
»FRAME~SAVED,y :<ctlf igs ;clear the indicator 
#USE SAVED. y:<ct If igs ;ciear the indicator 
#SAVE FRAME. y :<ctlf Igs. ,-clear the indicator 
#USING_SAVED,y:<ctif Igs clear the indicator 
ttREFRAME, y : <ctlf Igs .; clear the indicator 



OFF FRAME Z£2JDC2 .. 
SET^^EDS CCD 
INTERRUPT H0ST_DC3. 



; douse decoder framed alarm /led. 
,-set the leds as needed 



; for ancillary data decoding purposes, determine the. end of the' coded -frame 



.jsr 


<f r amend • 


lize' the 


ancillary data controi 




a ltdatabytes , rC 


move \ 


a.y:bytecnt 


move 


rO,y:dataiptr ■ 


move 


rO.y rdataoptr .. 


dc - . 


#DATABUFLEN. _clr_data 


move 


a,y: <r0>* 


ita . 
bset .. 


aM_TIE,x:<<M_SCR 


;he show begin.. 



.-zero the decoded byte counter. 
; & gee addr of the/data byte buffer 
; bytes decoded counter set to zero 
; address for next byte decoded . 
; addr for next byte to out RS232 

.•zero the ancillary data buffer 
;set the data transmit interrupt 



top 



.get "the external switches to determine if any changes that signal a restart 

GET SWITCHES_DCD gsws_20 
jsr" • <getsws 
; ■ " 3set.-. ■ #4 ,y:<not_appl. restart 

- jclr^;. ;#4,y:<not_appl,_ok_2_- . ■ 

. . nop 

nop ' '.' - . ' 

nop.'. ' ." . ■ '-' '- . 

V- nop ; - •■ . ; . ".. .." 

jmp . .' <restart 
_ok_2_ , -■■ 

.•check. the phase lock loop signal: , 

V/tst_SET_PHASE_L0CK_0C2 , _set_ph 

if not set. clear the phase lock .loop led and light the alarm led . 

•' rR RESET ' .clear the . DAC reset line to mute =-j 
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OFF_PHASE_LOCK_LEDOCD o:f phase lock led" indicator 

ON ALARM_LE2_DCD \; light alarm conditicn led :nd;cat:r 

TST SET ALARM RELAY DCD, set led B 1 . 

.set~aiarm_relay_dcd~ " 

^mp" <_sec_led_B / . 



. _set_ph 



else/ light the phase lock loop led 

and if .there, is no CRC bit error, clear the alarm led.-' 

ON_PHASE_LOCK_LED_DCD ; : ; light phase lock looc led indicator 

TST SET CRC ERROR_DCO, set alm_A ;if- crc error set, turn alarrr. led on 
..CFFlALARM^LED^DCD . ~ - : ; . ;turr. eff alarm led indicator 

TST CLR ALARM RELAY DCD, set led B 

clr"alarm_relay_dcd" ; 

jmp~ ' • <~set_led_B , 



set -aim A 



ON ALARM LED DCD 



; light', alarm 'condition led indicator 



TST_SET_ALARM RELAY DCD, set led B 
SET ALARM RELAY DCD~ ."• 



Led B - ■ . . 

OFF OVERLOAD LED DCD. 

set"leds dcd~ • ~ . 

INTERRUPT HOST DCD .-. 



bset 
bclr 



WATCH_DOG 
WATCH DOG 



; clear decoder overload alarm led 
;set the leds as needed 



.•tickle the dog 



Now wait until we have 1 word in the input buffer 

The varible wait form contains the address cf one word after the sync word. 
This is the word to wait for in the' interrupt routine to signal the 
. start- of a new frame. ..: 

;set up tr.G as a mod buffer of one frame 
rget buffer length 
;word offset for frame start 
rget 1/2 buffer length: frame length 
.. ; times 2 

;set framing buf, length for addr compare 
/increment to next input frame ■ - ■". 
: ;save new offset word to start cf frame 

increment 1 word 
-\;set -as address to wait for 
• .• ; restore rC, to linear addressing.- 
./.•get half the framing buffer si2e 

Here we check if we have received enough data to proceed 
-This is done by .checking by subtracting the 



move 


y : f rmemod, mO .-. 


move 


y :f rmsize, nO 


move 


y : IPwrdof f . r0 


move 


y:frmsi2e, a 


Isl 


a 


move 


• al,y0 


move 


(r0)*n0 


hove . 


r0,y : IPwrdof £ 


move 




move 


rS.xO .•• 


move 


y:<linear,mO 


move. 


y:frmsize,xl 



rdec IS 



-bset 
bcir 

move" 



WATCH DOG .'. 
WATCK~DOG -.. 

y ; cinpwptr ..a 



; tickle the dog 

,get curr read frames, i/p ptr-. 
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• ' 7 '; • v... -170--', '. .■ .. .' - ■ 

• sub ' • xC.a ' :;sub aadr to wait for;. ■ ■ 

■ s«« < rdec 20 .-check for zero addr wrap around- .. 

■■"add"-"" yO,a ;bump result by framing buf fer . length" .- 

_rdec_2: • . " . ' see if past a half a buffer 

^T? ' < rdec IS . V ; if net yet at the half -way/ loop 

^ll^reauired for even frame sizes when auto select sampling : rate . - 
make sure no rate switch fooled the decoder . 

i; . VERIFY JkHO_SAM?LS.' . .as needed by box_ctl.astn 

•; ! : :dgcst ■ ' • ' - 

Vtake the .next frame to decode and word align it for reed solomon, decoding . 

v^IPwrdc" ;get the word offset for the next fame to decode- 

IZl ^JnclufTni ..-base address of the i/p frame buffer 

. move . y:frmembd,mc ; doubled buffer i/p . : 

move fcreedsolbuf.rl ; addr for Reed Solomon i/p buffer 

™Zl i'ramebu* r2 ;addr for MOS I CAM decode frame i/p buffer 

:°7e ' igec to starr addr of current i/p frame 

move yfrmsize.nC .-number of words -in .a frame . . 

move. ;J;ipbitofi,b ..-bit offset to sync pattern m 1st word- 

• far th» lenath of a full frame. ' j ■ - 

'; get the words in pairs and shift to word. ooundary 

d" nC . reed shift' . . . . . - 

move x: (rO)-.Il ; 1st word of the curr pair to shift 

•if words already are aligned, simply copy the word to the Reed Solomon buffer . 

r S - b x:(rOl.aO -.-see if "a shift .is needed... ' • , 

cs - '. .. : ; j, aet 2nd word of . curr pair to sr. 

' 3 « q <_nc_shift : if no offset, no shift needed 

;for the, number of offset bits ; /shift the pair. of words to abut- properly aligned 
rep b . 

asl ' a •". " 

■ _no_shift • ". 

copy aligned word in Reed Solomon buff er for. decoding .■ 

;!!!dbg 

move 



mOVe ^t'x; 1x2*1 . ' ; also copy to KUSICAM frame buffer 



_reed_shift .. 

•decode the Reed Solomon frame back to a KUSICAM frame . - 

i - i, ™r. -restore rO to linear addressing . .. 

'" •" ov# • ' riiSlalbi* r« : • .-Reed Solomon frame buffer: i/p, . 
. . .move •r««*»? i l f 5" 1 :; r * ■. -« ra me buffer decoded: o/p . 

Ill-- A ~ •:• • iReed Solomon profile: centre!. de:=ce 



move 

move . ©PRC? 1 . r3 
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; • .". • \ ■ . :■ . -pi- . ; • , • \ 

3 sr <rsdeci5 ; ,ao Reed Solomon decode;.'' 

; Now setup the buffer reading routines 

move y:dcdfrmod,m6 : .-decoded Reed Sol frame bufmod ctl .. 

move ' itframebuf ,n6 t .-decoded Reed Solomon frame buffer addr 

move y :wrdof f ,r6 ; . .-bit cffset from. msb . 

move ." . yrbitof f ,a • • ;bit offset from msb 

bclr #USE SAVED. y: <ct If Igs .-clear used saved frame flag 
: bclr aUSING_SAVED,y:<ctlflgs .clear using, saved frame flag. 

; ' ; OF? CRC ERROR LED DCD ; turn off the crc error led indicator 

TST^SET^PHASE^LOCK^DCD^clr^alm^A ;if not phase loop locked, then 

" CLR DAC RESET ; clear the DAC reset line to mute output 

ON ALARM LED DCD : ■; light alarm led indictor 

■ TST SET ALARM RELAY DCD. set led C 
SET~ALARK_RELAY_DCD~ " " ; turn the alarm relay on • : 
jmp" ' ■ <3set_led_C ; . 

_clr_aim_A 

; release the digital to analog converter for output . 

SET DAC RESET - ..-.set" the- DAC reset line' high now 

OFF ALARM LED DCD ; turn off alarm led indicator 

TST'CLR ALARM~RELAY DCD. set_led_C 

CLR~ALARM_R£LAY_DCD~ ;turn the alarm relay off 

set -led C , ■ ^ ." 

" - ~ SET LEDS — DCD . ;set- the leds as needed ■ 

;nterru?t_host_dcd ■- . . 

bclr #SAVE_FRAME, y : <ctlf lgs . ;clr ind for getvaiue to save frame was 

.-Now we are ready to decode, the current frame using: 
; • ne - buffer address . ' " ; 

. r6 - word cffset into the buffer for scart of the frame 

• a • bit offset into the word offset into the buffer for start of tne frame 

• m6 « mod buffer control through the buffer this will be either - . 

normal input for 3 * frame size -1 (leaves space for saved buffer) ; 
'{ single, frame size -1 for using the saved frame if a checksum error.- 

_rdec_30 ' '/":',' ' 

. . jdcsct '. bset WATCH_DOG . : . ; tickle the dog 

; ! ! idcsct ; bclr ' WATCH_DOG ;; tackle the dog 

■ TOGGLE J*ATCH_DOG_DCD .; 
jsr ' • <bitsallo ; 

^prepare to suppress ancillary data if any out of frame condition 
■ bclr • *N6_SYNC,y/:<ctlflgs r v .-clear, the ' indicator ■ ■ 
Now. get the sync pattern. If the pattern matches a good syr.c. ther. . 
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r the ocf :cur.:«r is decremented. If it doesn't match." the ocf" pattern" ' ■ 

; is incremented. If it is incremented past, an upper limit, an cut cf 

: frame condition is declared and the system goes into framing. 

: Oh the other hand, . the oof counter is never allowed to go negative, . 

jsr cgetsync ;gef the sync bits 

move al,y0 ;move right justified value 

move ,-. y.icof.b ;get current * of ■ .ocf * s • " 

;if using the saved frame, do not recount sync problems , 

jset ■ **JSE SAVEC,y:<ctlflgs, rdec_50 

move r *>SYNC,a ~ ;get sync pattern for test. ... 

. cir.p yO.a #>GOOD_DECREMENT.xl. ;dc we have a valid sync 

• ." .'; i.set good sync .decrement value 

.' . ' jeq • <_rdec_4 0 

; We are here because the sync did net match.; 
; Increment the number cf bad syncs found.. 

bset #N0 SYNC. y: <ctlf Igs ;set indicator to skip ancillary data 

move #»BAD INCREMENT. xl ; set the bad match increment value 

add xl,b ~ #>BAD LIMIT, xC increment the number of oof's 

. - " t. set limit value to restart . 

xQ.b ;see if at the limit 

< rdec 50 . -we are not, so keep going 



cmp 



nop 

nop '• " ; . 

nop 

' no? . . ■ ' ■ 

. nop .-• • 

;we've sensed too many sync pattern failures in succession 

7O0_MANY_SYNC_ERR0RS_DCD . 

Yillrmicrmus jmp <restart ;at error limit so re frame 

; We are here because a valid sync was found. 
; Decrement the number of bad syncs found.. 

_rdee_40^_ X l,b~ -decrement the number. of oof's- 

est b" - ttO.xl • , V ;see if at the. limit 

tit ' v xl,b~ . . ■ 

— r ^ eC - 50 roove b,y:oof ; save the current oof counter 

/get the sytem header info 

' jsr <getsyst . ' . ; get. system header ifif o . - . 

;see if the frame header sample rate code matches determined sampling rate 
; If the sample rate codes, match a good sync, then, the yoo£ counter is 
- ; decremented. " ■ 

; If the codes don't match, the vocf. counter is incremented... 
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. ••; ; -r3- . •• • ; v. 

;; If :r.e vocf counter is incremented past an upper limit, we have tc 

do the auto, selection again since perhaps the* sampling rate has chanaec . 

move y:svesmpl,a ; get code from frame header 

move . y:smplcde,xO ;get code determined by framinc 

move . y:voof,b ;get current # of vcof's 

cmp xO.a - #>GOOD^DECREMENT,xl ;.is a valid sample . rate code 

; 4 set good code decrement value 
..jne ■'. <_ek_STnpl_05 . • .;if we don't that's bad 

;now check the frame header ID that matches the sample rate. 

. move;-. .' yrsveidbit/a ;get ID from frame header 

move y:smplidbit,xO ;get ID determiend by framma =■ 

. cmp. .- .. xO, a • ; see if a match • • ' 

jeq <_ck_smpl_i0 . \ . ; if we do that ' s good 

_ck_sirpl_05 • 

; Me are here because there was nc match of the sample rate codes . 
Increment the number of unmatches. found. 

.move ft >BAD_ INCREMENT , xl ;set the bad match increment value 

add xl,b " #>BAD_l.IMIT,xO ; increment the number of voof's 

■ ■ '; fr' set limit value to restart- ; 
cmp. xO,b ;see if at the limit 



<_ck_smpl_20 ; we are. not , so keep going 



- ■* • 

> • : .i dbg 

•' nop 

nop . .; • ' •' ••" '. 

nop ■■• 

nop " • '- 

nop" ' • ' 

; ! ! ! dbg ■ 

Omp \ <restart . ,*at error, limit so , restart 

; We are here because a valid sample rate was found in the frame header. 
; Decrement the number of unmatched sample rate codes . 

_ck_smpl_10 ■ 

" : sub xl.b ... decrement the number of voof's 

tst b #0,xl ;see if at the limit 

tit xl,b . ;if less than zer:, set 'to zero : 

_ck_smpl_20 '. 

: " move b,y:voof ; save the current voof counter 

;see if the frame header CRC protection code matches determined protection code 
'; If .the codes match, then the pocf counter is decremented. -'. 
; If the codes don't match, the pocf counter is incremented. 
; If the. poof counter is incremented past an upper limit, we have tc . 
; do the auto selection again since perhaps the CRC protection has changed-. 

' move y:poof.b ;get current (* of poof's 

move . #>GOGD_DECR£MENT,xl ;set good match decrement value 

; verify the CRC PROTECT setting versus auto sampling: 
"if the frame header shows CRC protection, 

verify auto sample also indicates protection. '. - 
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■'- jset ' . ft PROTECT, y:<ct if lgs,_ck _prot_00 ' ;if protect'., check autc 
;frame shows no protection, 

' ; . ' if auto sampling also found no protection,; 
; : go to decrement the poof counter 

" otherwise, force protection and assume a bit error' 
. and increment the poof counter '. 

• . . jset". #0.y:<protect/_ck_prot_13 .. ; ;if match, decrement poof 
bset . '"• #FRGTECT,y:<ctlf lgs .-set' the CRC applies bit 

jmp . <_ck_prot_0S ,-go to increment poof for the bad mater. 

_ck_prot w 00 

rframe shows protection, : 

if auto sampling also found protection, continue 
otherwise, force nc protection and assume .a bit . error" 
. and increment the pocf counter 

- jcir #07y:<protect._ck_prot_l6 ; if match, decrement pocf 

•bclr; • #PRC7ECT, y:<ctlflgs ~ ; clear the • CRC . applies bit 

_ck_prct_05 

r We are here because. there was no match of the CRC protection codes. 
; Increment the number of unmatches found. 

move # >BAD_INCR£MENT , xl ;set the bad match increment value 

add xl,b " #>BAD_LIMIT,xO .-increment the number cf poof's 

' . " ; ; ■ . ; & set limit value to restart .. 

CTnp x0, b ;see if at the limit -' ' 

jit <_ck_prot_20 ; we are not, so keep going 

; : : :dbg ' ' . : - 
nop ■■' 
. nop . . 

, ' no P ' 

■ nop : ••; ' / • ^ ■ . ■ 

; : : :dbg . 

.. jmp < restart ■ ; at error limit so restart 

.; We are here because a valid CRC protection code was found in the frame header 
; Decrement the number of unmatched CRC protection codes.. 

_ck_prot 10 

~ sub xl,b. ; decrement the number cf poof's 

. tst * b #Q,xl ■ '. . ;see if at the limit • 

, tit- : 'xl,b-- ; if less than 2ero, set to zero ' ■ 

_ck^prot 20 

move <. b,y:poof ; save the current pocf .counter, 

;if .there is CRC- 16 protection on the frame: 

; set the CRC- 16 checksum tit count for the old ISO method: 

.; a. header bits covered by any type of frame : 

plus bits for the left channel also apply to any type cf frame . 
b.- set bits for possible right channel based on. frame type 
-.*. c. . if not -MONO, add bits for. right channel. 
■; d. .save. eld ISO tit. count for this/frame ' ■ 
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jclr.; * # PROTECT . y : < ct 1 f lgs , _rdec_6 0 



rif no checksum., get alloca-icr.s 



move 
move 
jset 

add \ 



rdec 52 



move 

bset 

■bcir. 

jsr 



rdec 6 0 



; ! ! idbg 
; : ! idbg 



move 
: sr 

move 
move 
jsr 

move 
move 
move 

jclr 
3mp 



bset 



$ > CRC_B ITS_A ♦ CRC_B ITS B , a 

#>CRC_BITS_B.xO . " ; bit count for right channels 
*STEREO_vs_MONO, y : <ctlf lgs , _rdec_52 



xO,a 



a,x:crcold 

WATCH DOG 
WATCH~DOG . 

<getcrc ' 



#SBIncbc,rO . 
<getbal 

#SBits,rO 

#SBIndx.rl 

cgetsbits 

#SBndSKF.rO 
#SBits,rl 
#SBIndx,r2 
<getskf 



; since its stereo, add fcr right channel 

.; set the old ISO CRC-16 bit count ' 

.-tickle the dog 
; tickle the dog.. 

; get checksum, from frame . 



..•address of sub-band -indicies 
.-get bit allocations 

.-address of SB bits array 

; address -of sub-band indicies 

;get the sb bits 

i address of the SB scale . f actors 
/address of SB bits array 
/address of sub -band indicies 
/get scale factors 



#PR0TECT.y:<ctlflgs._rdec_70. 
<. rdec " ?0 ■ ■* 



;if no checksum, get data pts . 



WATCH DOG 



; tickle /.the dog 



#USE_SAVED,y:<ctlf lgs,_rdec_70 ;do net re check saved frame 
<chkcrc ~ ; check the validity cf frame . 

#R£FRAM£,y:<ctlf lgs, reframe . ;if too many bit errors, reframe 
#R£FRAME,y: <ctlf igs,_dbg_dsb_ ,if too mar.y bit errors . reframe 



jset 
:sr 
:set 
Dclr 
nop 
nop. 
nop . 
nop 
nop : 

TOO MANY BIT ERRORS DCD 



dbg dsb 
- V - jclr 
' . jclr 



#US£_SAVED.y:<ctlf lgs._rdec_65 ;if valid, continue with frame 
.#USING_SAVED,y.:<ctiflgs._rdec_6S ;if saved valid, continue 



ON CRC ERROR LED DCD . 
0N~ALARM LED~DCD~ 
TST SET ALARM RELAY DCD, 
SET~ALARM RELAY DCD* 



. . ; light crc error alarm'- led 
; light alarm led indicator 
^set^ledjj ... 
~ Ttum' the alarm relay oh- 



led D. 

■SET LEDS DCD 
INTERRUPT HOST DCD 



■cir 



.;set' the . leds as needed 
*?RAM£_SAVED. y recti* lgs, _rdec_8C ;else failed. ; 



f r.c savec trarte 
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bclr 
move 
move 
move 



rdec 65 



- :- output zeroes and try again 
3 FRAME SAVED, y :<ctl figs rclear since we used the saved frame 
• ,-else. set up last saved frame 

; word offset was saved 
• ;bit offset was .saved ■• 



#savebuf , n€ 
y : wrdof f ,r6 
y:bitof f ,a 



jmp ■* <_rdec_3.0 

OFF_CRC_ERROR_LED_DCD 
'bclr- WATCK_DOG 



•go back and dc last frame again 

'■turn off the ere error alarm led 
; tickle the dog 



_rdec_7C .'. 

•now light the proper led for the type cf framing: 

' vfull stereo, ooint stereo, dual channel or mono 



:set 
}set 



USTEREO vs MONO.y:<ctlflgs,_rdec_53 
*JOINT_FRAMING,y:<ctlflgs._rdec_Sl 



;if mono 
■;if join: 



sterec 



_rdec_S: 



OFF_MONC LED DCD 
OFF JOINT LED DCD 
ON STEREO^LED^DCD 
jmp <]jrdec_55 

OFF MONO LED_DCD 

off"stereo LED_DCD 

ON JOINT LEDJ3CD 
^mp <_rdec_55 



_rdec_53 



OFF STEREO_LED_pCD 

off~jcint_led_dcd ■■■ 
on monc led_dcd 



;turn off the mono led indicator 

; turn off the joint stereo led indicator 

; light the stereo led indicator 



; turn 'off the mono led indicator 
; turn off the stereo led indicator 
;liaht the joint, stereo led indicate: 



;turn off . the stereo led indicator 
; turn off the joint stereo led indicate: 
•light the mono led indicator 



rdec 55 



SET LEES DCD 
INTERRU?T_HOST_DCD 



; set the leds as needed 



;test if the fade controls are applicable 



TST CLR.FADE OOTPUT_DCD , Jt ade_5 
move "y: fa3ecnt ,b 
-st b -*>l.xO 

jne <_f ade_3 
move yTfade.a . 
move * >FADE — SOFTEST .yO- 
TST SET FADE DOWN_DCD, _f ade 1 ^ 
. i st - "a ~" #>FADE_START_UP 



cmp 

tot 
sub 



. < fade.S \, 

xl.a ■ . I* >FAD£_INCREMEN 



xla 
xo.a 



#>FADE_FRAMES,b 



; if fade not requested, continue 
; get fade frame counter 
;test if ready to fade (fadeent«3: 
• & set to decrement frame count 
•not. ready yet. go decrement 
? get current fade value 
;get maximum fade down range 
; increment to soften output 
xl ;test if at loudest fade up 

get test. for max start fade value 
at loudest, continue 
;test .if above max start fade. 
_ get scale factor increment 
•if needed, set start fade up ". . 
•adjust louder for this frame . 
; U set frame count to next ■ decrement 



; & 
;if 
;,x0 

fir 
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j nsp 



cmp 
jeq 
add 



•17: 



<_fade_2 



; score new fade SKF adjust value 



vO,a ' #> FADE INCREMENT ,x0 

< fade 5 ~ ;if at softest, 1 continue 

xO,a " #>FADE FRAMES, b r ;adjust softer fcr this frame ; : 

; fii set frame count . to next • decrement 



fade 2 



fade 3 



f ade 4 



. move 
jmp 

sub' 

move 



a,y : fade 
< fade 4 



xO,b •" 

b, y : fadecr.t 



; save the new fade SKF adjust value 

; decrement frame, counter 

;save the new .fade, frame counter 



_f ade_5 

;.if 1st frame align the ptrs fcr the pclysynthes 



jsez 
move 

. bset 



#FIRST TIME,y:<ctlflgs,_rdec_5? ■ 

xl.xO ~ - ; align the read & write ptrs , 

<aiignptr ;9*t P trs , ; 

#?lRSTjriM£,y:<ctlflgs ; indicate ptrs have been aligned 



rdec 5.7 



#SBIndx,r3 
#SBndSKF,r2 
#ASMData , rl 
<getdata 



•]sr <getancdata 



move 
move 
move 

.-Tsr ■ 



;sb indicies 

; get the scale factors 

'•'set. A share mem of rec samples 

,-gec the sub-band data 

; process ancillary data 



■maintain the frame counter of successive frames with the old „CS CR_--t 
' checksum coupled with ancillary data decoding problems.. 
' t* -he no er?cr was detected, then the docf counter is oecremented. 
: : he ^ was aR error, the doof pattern is incremented. *. i - -s 

; MPEG-ISO decoding or vice versa. 

; The docf counter is never allowed tc go negative. 

. move : :y:doo'i..b ! ; .* et current .# of dcofs 

; A saved frame is not included in maintaining the docf; s counter . .. 

. . i 3tz .'. auSE_SAVED/y:<ctlflgs,_rdec_153 • 

; check "-if a problem with old CCS CRC- 16 algorithm coupled with 
;. a problem with ancillary data.. . 



move 
move 

' jclr. 



*oldccs,rl . 

»>GOOD DECREMENT, xl 

#2,y: lri:= ,_rdec_140 



;addr to test . ancillary data problem 
; zo decrement error frame counter 
•if no. ancillary data error, decremer 



*. ; we are here because there was; ah ancillary data problem/cld CCS CRC-1€ 
: increment the number of bad frames found. 
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. ; i ! idbg 



;to increment the number c 5 dccf's 
.increment the number tf doof ~s~ 
; : & set limit lvalue tc restar* ' 
.-see if at the limit - " 

•;we are not so. keep.'coihg 



move *>3AD- INCREMENT, xi 

add . xi.b ~ *>bad_lim:t,xc 

cmp xO , b 
jit <_rdec_150 

■ nop . ■ 

■ ■ nop . ' ' ■ • ■ . 

no P' 
'• - nop 
nop 
' ; ! 1 '&>9 • . 

;ref rame if toe many ancillary data problems in succession 

70C_MANY_DATA ERRORS DCD ' 
: jmp" , <_rdec_15C 

; We are here because the ancillary data decoded ok 

; Decremen: the number of ancillary data .problem frames found. 

_rdec 140 ' 

" . . ~ . sub xl,b . ' 

tst b . . #0,xl 

tit . xl,b • 



; decrement the number of doof's 
;see if at the limit ... 
;if less, than zero, set to zero 



_rdec_15C 

™ move 

'. 3 clr 
. ■ . jcir 



b, y :doof 



;save the current doof counter 



*™?l^ :<c "^f?-. rde ^ 7 2 <^ no checksum, no reason to save 
-,*USE_SAVED> y : <ctif lgs , _rdec_72 .-did not use a saved frame 



;do not. reuse a saved frame 

bclr *?RAME_SAVED, y : <ct If lgs ; clear we have a saved fram- 'lac 

3mp <top - 

.._rdec_72 

.; since we had a good new frame, check controls for lone solid opera- ion 

; restart the counter of frames with bit error " 
; and adjust count of framing retries, that control reset needed 



clr : ■ ■ b ■ .'■ #>l,yO 

neve . y:frtries,a 

sub.. yO.a b,y:biterrs 

tst .. a 

jge < rdec 75 

clr • a" " •. 



_rdec_75 



move a.y :frtries. 
jmp ' .- . <top 



_rdec_8C 



-OFF MONC LED DCD 
, C"r"jC:NT LED DCD 



;zerc bit successive bit error : counter 
; & tc decrement counter every frame 
; get framing try counter 
.•decrement counter every, frame - 
; & zero bit error counter 
.see if counter, reached zero " • 
;if not, continue 
;zero framing tries : 



;save the reduced framing tries ctr- 
.;do next' frame ' ■: 

;turr. eff the r.onc ' lei. indicator : 



.turn of* 



sin: 



. sterec led. indirat: 
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". OFF STEREO_I<ZD DCD ' ;turn of f ■ the stereo led indicator. 

■ ■ SET~~LEDS DCS . " . ■ ;set the leds • as needed 

. ' INTERRUPT_H0S7_DCD -" \. 

;mute the current' frame • . 

j Sr . <muteout '.' ;mute the output buffer 

'. '•• jmp <top •;. " 

end • ; /.' start ' v. 
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opt • f c... - ". .- "■■ 

.; ic) 1991. Copyright Corporate. Computer Systems, Inc. All rights reserved. 

• ; \URDOSYN\getsbits .asm: Ben's mux 

■ -. title : . ' Get SB bits' ■ 

; This routine is used to get the SB bits. of each of the sub-bands. 

; on entry. ' • V' : ' 

rO « address of the bit. SB array 
; . rl -address of the SubBand Index array 

r6 - current offset in the input array. 
; . n€ - base address of. the input array 

; :■ y:<maxsubs - MAXSUBBANDS at sampling rate and bit rate 

; . y:sc - shift count of current input word 

. x: crcbits « accumulator of bits covered by CRCr 16 routine 
; (bit coded for SBits are : accumulated) 

' ; on exit 

r6 = updated . 
■ ; \ ■ . y : sc - updated _ 

■• ; " a - destroyed 

■ '; .' b « destroyed 

■ xO « destroyed 
■' ; xl * destroyed 
*.;.■■'.' yo « destroyed ' 

; ' " yl V destroyed 

. ; ' ■ . rO » destroyed". 

;' , rl -'destroyed' 

; r4 - destroyed/.; 

; ; • n4 --destroyed 

. " . include ' def .asm' . 

. org phe : . - . * 

; initialize: 

; a. number of frame bits for a sub-band SBits index value 
; b. n0 offset for right channel sub -band SBits values : 

left channel from 0 to (NUMSUBBANDS - li - 
; right channel from NUMSUBBANDS to ((2 * NUMSUBBANDS) - 1) 

; : c. nl offset, for right channel sub-band bit allocation values: 
; left channel from 0 to (NUMSUBBANDS. - 1) 

. ; . right channel from NUMSUBBANDS to ( (2 * NUMSUBBANDS ) -.1) 

• getsbits 

move #NSBITS,n4 . ;set number of bits to get 

move # NUMSUBBANDS , nO . ;SBits offset-right channel 

...move #NUMSUBBANDS . nl ... ;bit alloc offset-right channel 

move x: crcbits, r 5 ;get CRC-16 bit counter, 

move n4,n5 ; to accumulate, CRC-16 bits 

•loop through the sub- bands extracting the left and right (if applicable) 
;SBit values values (y:<maxsubs - fixed count of sub-bands framed) : 
; process- the right channel : ' 
. ; a. fcr current sub -band : get the left channel allocation index, value . 
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b. 
c . 



if the lei 
otherwise , 
and go to 

'.do 
move 

CSC 

jeq 

jsr. 
. move 
.: and 



t^cnannel index iS zero,, go co inserc a zero SBits value 

extract tne SBics. value for left channel of u r " b-h^ 1 
inserc value, inco che SBics. array; ■ •. sub bana 

y:<maxsubs, gets 90 
x: (rl) ,b " . ~ 
b : , • 

_gecs_i0 • 
getvalue 

#>MASKNSBITS,xl . 
xl,a . • (r5)+n5 - 



;get left index for subband 
;test index for noc coded (0) 
;use value of zero if not 
;get a sb value 
;mask for. sbics from getvalue 
; mask off hi order one's 
; . & accum bits for CRC-16 rtn : 
;go to store SBics value 



_gets_20 

; insert 0 for che lefc channel SBics value for this sub-band 

.^gecs_10 ' ' ' 

c 1 r a 

: ;no index use .zero; 
;move che left channel SBics value to the SBits array 
_gecs_2G 



move 



al,x: <r0) . 



; process the right channel: 

[ t ff^h^tS^ SU K" ban v Che channel allocation index value 

' ~" if the right channel index is zero, go to insert a zero SBits value 

: !n^r e ' eXtraCt ? he SBitS ~ l ««"tor right channel of current suL band 
and go to insert value into the SBits array oana 

;get right index for subband 
;test index for not coded (0i . 
;use value of zero if not 
;gec a sb value 
..;mask for sbics from gecvalue 
;masJc off hi order one's . 
: ; fit accum bits f.or' t '"CRC-16 rcn 
;go to score SBits value 

; insert 0 for the right channel SBits value for this sub-band 



move 


x: <rl+nl) ,b 


tsc 


b - 


jeq ■ 


_gets_30 


jsr - 


getvalue 


move . 


#>MASKNSBITS.xl 


and 


xl,a (rSWnS. 


jmp 


_gets_4 0 



_gets_30 



clr 



; no index use zero 



;move the right channel SBits value to the SBits array 

.-increment SBics array and bic allocation index arrays for next sub-band 
_gets_40 



move 
move 
move 



_gets_90 



move 
rts 



aliX: (r0+n0) 
(rOW : ': 
(rl)* : 



r5,x:crcbits 



rstore updated CRC- 16 bit counter 
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\ ..... opt ■ fcmex ■; ' • /*".' 

;.(c! 1991. Copyright Corporate Computer Systems, Inc. All rights, reserved. 
• \URDCDSYN\gets)cf .asm: 3en' s mux'. 

".-title-. 'Get Scale Factors' . 
/This routine is used to get the scale factors of each of the sub-bands. 
; "'on entry " 

; r0 - address of the bit scale factor array (x memory) 

rl » address of the bit. SB array ix memory) . 
; r2 - address of the bit SubBandlndex array (x memory) 

■ r6 ■ current off set in the -input array 
n6 - base address of the input array 

y:<maxsubs » MAXSUB BANDS at sampling rate and bit rate 
; y:sc * shift count of current input word \ 

; on exit 

; ■ r€ '« updated 

; " . - y : s: * updated' 

/ . ■ ■ -. * . . . ". ■ - ; . 

.; a - destroyed.' 

;. . ip * destroyed ' 

; xO « destroyed - 

.; . xl » destroyed 

; yO « destroyed 

; yl » 'destroyed' 

• ; rO » 'destroyed ' 

; ; • r4 » destroyed .. 

; n4 - .destroyed . 

include 'def .asm' 
..include ' box_ctl .asm' 

* org phe : 

getskf 

; initialize : . ' • • . .. _ ' ' 

,* number of frame bits for a sub-band scale factor index value 

move #SKF,n4 ;set number of ^bits :o get^ 

move #0,n0 ; scale facts offset- left chan 

; test the scale factors for certain tolerances : 
. ; a^ zero scale factor is equivalent, to a bit error, 

indicate NO zero scale factor 
Vb.. clear the channel overload led indicators- . 

. bclr *SKF_ZERO,y:<ctlflgs . 
OFF LEFT OVER_I*ED_DCD .. . , 
OFF~RIGHT_OVER_LED_DCD . 

•loop through the sub-bands extracting the left and right ' (if applicable) 
•sca^e factor index values (y : <maxsubs - fixed count of sub -bands framed): 
•wi-«-- the sub-band loop is a loop for both channels: left then- right 
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a. 



:ess che left channel: • ■ 

nC offset for left channel sub-band scale factor index .values : 

left channel from 0 to (NUMSUBBANDS*NPERGROUF . - 1) . 

right channel from NUMSUBBAJTOS*NPERGROUP 

to. { i2 * ,NUMSUBBAN3S*NPERGR0U?i 
nl offset for' left channel sub-band SBIts values : : 

left channel from 0 to (NUMSUBBANDS -.1) 

right channel from NUMSUB BANDS to ( (2 • NUM5UBBANDS ) - ir 
n2 offset for left channel. sub -band bit allocation values : , 

left channel from 0 to (NUMSUB BANDS - 1) 
. right channel from NUMSUBBANDS . to' i (2 * NUMSUBBANDS ) 



do y : <maxsubs , _ge ts_?0 

move .. '•. HO, nl 

move' ' #Q, n2 ■ 

bcir ' #LEFT vs RIGHT, y : <ctlf Igs 



;SBits offset -left channel 
;bit alloc offset- left channel 
;left is current channel ■/•..,' 



; process a channel for- the current sub-band: 1st left then right 

• a. update the register pointer with the offset into the scale factor 

index array for the left or right channel 
; b. get the bit allocation, for the proper channel to see if any facto: 



's at ah 



do . #NUMCHANNELS,_gets_8C 
move irO) +n0. , 
move x: (r2+n2) , a 



.♦offset, fcr proper channel 
;get the SubBandlndex [SubBand] 



; first check if sub- band contains anything to work on. This value could ; 
; be zero if there is no energy in the sub-band. 



tst a. x: (rl+nl) , i 

jne _gets_05 • 



; see. if any alloted bits 
; there were 



no bits were allocated, so set the scale factors to 63. I could 3ust 
set the scale factors to anything for this case, but I set them to the 
lowest '.acutllly, 63 is one lower than the lowest) scale factor. 



move 
move 
move 
move 
jmp 



#>63,al . 
ai;x: (r0) +. 
,ai,x: (r0) * 
al.x: <r0>* 

_g« ts _ 40 



;get lowest scale factor value 



_gets_D5. 



tst.. " a ■ ..#>l,x0 ' 
3ne . . ' _gets_10 
; sbit code '00' case where must get all 3. scale factors 



SB— C for this sub-band 
set xC to sbit code '01' 



do 
3 sr 
move 
and ' 
move 



#3,_gets_a 
getvalue" 
#>MASK£KF,xl 
xl,a 

al,x: (rOi 



;mask for scale factor hi ord ", 

;mask off high order one's 

; save in SubBandSKFs [SubBand; [2] 



_gets_a 



jmp 



_gets_40 



aets 
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• rmp . \ 

jne . 

sbit code '0: 

jsr 
move 
• and' 
move 
move 

■ Dsr 
move 

■ and ■' 
move. 



;SB 



xC.a ' #>3.xb- 
_gets_20 . 

' case where must get the second two scale ■ factors 



1 fcr this sub- bar.: 
set xO to sbit code 



getvalue ... 
. #>MASKSKF,xl 

xl.a • 
■. al.x.-lrOJV 

al,x:(rO>~ 

getvalue 

#>MASKSKF,xl 

xl. a 
. al.x.: <r0') T 



;get SubBandSKFs [SubBand] [ij 
;mask for scale factor hi .ord 
; mask off high. order one's 
.-save in SubBandSKFs f SubBand] r b] 
;save in SubBandSKFs [SubBand 1 
;get SubBandSKFs [SubBand] [21 ' * ' 
.-mask for scale factor hi ord 
;mask off high order one's : ■ 
;save in SubBandSKFs [SubBand] [2] 



_gets_2C 



■cmp. xO.a ' . . #>2.xC 
jne _gets_3C 

case -where must get the first two scale factors 



;SB 3 for this sub-band 
; set xD.to sbit code '10' 



; sbit code 'll 


' case where i 


. jsr . ... 


getvalue . 


move 


#>MASKSKF,xl 


and . . 


xl. a 


. move. . 


al.x: (r0> * . 


jsr . 


getvalue 


move .. 


:«>MASKSKF.xl 


and '• 


■xl. a 


move 


al.x: (rC)~ . 


move . 


al.x: (r0>* 


j*F ' 


_gets_40 


_gets_30 




■ " cmp • . . 


xO, a 


jne \ 


,_g*ts_4 0 


; sbit code '10' 


case where n 


jsr ' 


getvalue 


move 


*>MASKSKF.Xl 


. .and • ■ 


xl.a 


" move 


al,x: irO>* 


move ' 


al.x: irQi* .. 


move 


al.x:(r0)*. 



.-get SubBandSKFs [SubBand] f 0] 
.; mask. for. scale factor hi ord 
;raask off high order one's ■ 
,-save in SubBandSKFs [SubBand] [CI 
;get SubBandSKFs [SubBand] [l] 
,-mask for scale factor hi ord 
;mask of f high order one's 
.-save in SubBandSKFs [SubBand] [I* 
;save in SubBandSKFs ■ SubBand] [2^ 



;SB 



2 for this sub-band' 



;set 
; a . 



;get SubBandSKFs [SubBand] [C? 
- ;mask for scale factor hi ord 
;mask off high order one's 
;save in SubBandSKFs [SubBand 1 [C; 
.save in SubBandSKFs [SubBand] ^ : 
.save -in SubBandSKFs [SubBand] [21 

for the right channel : 
backup the SKFs array for the left channel 3 scale factors indices 
no offset for right channel sub-band scale- factor index valGes 
. left channel from 0 to ( NCMSUBBANDS * NPERGROUP . l) 
..• right channel frcm NUMSUB BANDS ♦NPERGROUP 

' ' ' ■ , tp U2 * NUMSUBBANDS * NPERGROUP ) - ' I / 

r.. c-.set for. right channel, sub- band SBIts values: 
\ left channel from 0 to (NUMSUBBANDS - 1; 
. right, channel . from NUMSUBBANDS to t C2 ♦ NUMSUBBAND 5 ■ - -. ■ 
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; d. n2 offset for right channel sub-band tit allocation values: 
left channel from C to (MUKSUBBANDS - 1) 

right channel from NUMSUB BANDS to .(.(2 * NUMSUBBANDS) - 1) 

_gets_40 •• . _ . '. 

;back up for the 3 scale factors and while doing it test. for: 

; a. zero scale factor 

; b. overload scale factor 



move y: fade/yl 



; get current fade value ", 



do 

move 

add 

tst 
jne 
bset 
move 



#NPERGROtfP,_gets 40 e 
x:-(r0),a 



yi,a 



#>.63,y0 



a #>OVERLOAD_SKF,x0 
_.gets 40_a " . 

#SKF_ZERO, y : <ctlf Igs 
y0,a~ 

_gets_4 0_d 



; apply scale factor fade 

; & set maximum scale factor 



; 1/4/94 do not set .bit error . 
; 1/4/94 set scale factor to €3 



/ test for an overload, and if so, set channel led 



_gets_ 4 0_ a 
cmp 

. v; jge 



x0,a 

_gets_40_c 



;N0 overload,, test for max 



.•overload sensed, set which channel led 



jset #LEFT_vs_RIGHT,y:<ctlf lgs,_gets_40 Jd 
ON LEFT OVER LED~DCD 



! !dbg : 



: :dbg 



nop 
nop 
nop 
nop 
nop 



amp 



_gets_40_c . 



; test for max SKF 



gets 40 b 

- . r ON RIGHT OVER_LED_DCD 
;ll !dbg "V 
. ■ nop • 

nop 
. nop 
nop 
nop 

. ; ! ! idbg 



_gets_4 0_c 
~ cmp 
jle 
move 



yo,a 

_gets_40_d 
y0,a ~ ~ 



,-test if greater €3 

;if less or eq, use current 

;if so, set to 63 



_gets_4 0_d\ 
" ~ move 



a,x: trO) 



/restore scale factor; 
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#I-EFT_vs_RIGH7,y:<ctlfigs 
#NUMSUBBANDS*NPERGROUP nO 
#NUMSUBBANDS , nl 

#NTJMSUBBANDS,n2 



.•indicate current channel 

'Hill l^ ZS otts **-*i&- chan 
'SBits offset-right channel 
;bit alloc offset-right channel 



;after processing the right channel 
; next sub -band: 

reincrement rO for scale factor array by 3 for the ina^f^ n * 

to reposition the seal* f-^^ i-AZ Y °L ... ^5_ cn ? inserted 3 factors 



set up for the left channel of the - 



b- to reposition the scale facto^in^x^^ , 
we put the negative offset in nO ignc Dac * to left channel 

d* ' ^hf SBits value array for the next sub -band \ 

d. m.remen. the bit allocation index array for the next sub-band ■ \ 



_3ets_e: 



move *3,n0 

move : (rl » ♦ - : 

"move. ' (r2> * ■ 
move (rOl+nO 

move # - NUMSOB BANDS * NPERGROUP ( n0 



_gets_90 . 



SET_LEDS_DCD 
rts 



/scale facts offset -right chan 



,-show overload conditions 
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opt;' ' ■ f c,mex 

tcl 1991. Copyright Corporate i Computer Systems, Inc. All rights reserved. 
. \UR0CDSYN\ gets ws. asm . 

'• • title 'Get decoder external switch settings' 
This routine is used to interpret the external switches on the box 
on exit ' " 

x:tstrate * raw bit rate input from the switches 
xrtstsell - raw application of line 1 select switch 
x:tstsel2 » raw application of line 2 select switch 
x : tstfrmt • frame communication formatting 
x:tstreed ■ Reed/ Solomon encoding switch 

x:tstbaud - raw ancillary data baud rate input from the switches 

y:<not_appi - bit 4 set if any switches changed 

destroyed:. 

register a 



include 'def. asm 
include ' box_ct 1 . asm' 

section highmisc 



xdef 
xdef 
xdef 



• org ' . 


xhe 




stgetsws_xhe 




■■> ■ 


selectl 


ds 


■ 1 


select 2 


ds 


' 1 ■ 


tstrate 


ds 


1 


tstsell 


ds 


1 


tsts.ei2 


ds 


1 


tstfrmt 


ds . 


. 1 


tstreed 


ds 


' 1. 


tstbaud 


ds 


1 


tstmeth 


ds 


■ I' •: 


endgetsws_xhe 






endsec 








phe: 




getsws 






bclr ■ 


#4,y:<not_appi 


■' clr 






move ■ 


a, X: 


tstrate 


move '•• 


; a> X : 


tstsell 


. move 


a ( x: 


tstse!2 


move 


a,x: 


tstfrmt 


•. move 


a.X: 


tstreed 


move 


a, x :■: 


tstbaud 



selectl. ; current setting of line 1 select switch 

select2 ; current setting of line 2 select switch 

tstrate . tstsell ,tstsel2 , tstfrmt , tstreed. tstbaud, tstmeth 



; current setting of line 1 select switch 
.•current setting of line 2 select switch 
;raw bit rate input from the switches 
; raw application of line 1 select switch 
;raw application of line 1 select switch 
;raw frame comminucatiqn formatting 
? Reed /Solomon encoding switch 
rraw ancil data baud rate input from switches 
; raw code for diagnostic vs normal operation 



vindicate; no changes initially 
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move 



a. x: tstmeth 



;chec)c the dip switches to.. determine frame bit rate V'. 
"; and ancillary data application and data baud rate: 

/switches, for framing bit rate .... 

GET_BITJIATS_DCD 
,-switches for framing type code and . mono . output 

G£T_FRAME_TYPE_DCD ; : 
; switches tc set if selecting line l and/or line 2 

. GET_SELECTED_LINES_DCD 
;switches for ancillary data baud rate 

get_baud_rate_dcd. 

.-switches for method of . operation, normal audio or diagnostics 
GET DIAGNOSTICS DCD 



move x:tstrate,yl 

move y:rawrate,a 

cmp yl,a x: tstsellvyl' 

. jne _gsws_80 

move x:selectl,a 

cmp yl,a x:tstsel2,yl 

jne _gsws_8.0 

move. x:select2>a . 

cmp yl.a x: tstf rmt/yl 

jne _gsws_80 . 

move y :f rraformat, a 

cmp yl#a x:tstreed,yl 

jne _gsws_80 . 

move . y ;reedsolomon, a 

cmp yl,a x:tstbaud,yi 

jne _gsws_B0 
•". move ■ ■ y:baudrte,a 
.'' cmp- - yl, a 

. j ne _9sws_80 

; see if we have to switch from normal to the diagnostic method of operation 



;look for a change in framing rate 
; set up to test line 1 selection 

;set up to test line 2 selection 

;set up to test framing format. 

;set up to test' Reed/Solomon switch 

;set up to test ancillary data baud 



move 

tst: 

jeq 



x: tstmeth, a 
_gsws_ 90 



_gsws_30 



bset #4 , y : <not_appl 



;get the diag nostic code 

;see if other than normal operation 

; normal operation, continue:. 



; indicate changes in external switches 



_gsws_90 



rts 



/bad 
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' ■ opt , f c , mex \ 

; (c) 1991. Copyright Corporate Computer Systems, Inc. All rights reserved. 
; \URDCDSYN\ get sync, asm: Ben's mux 

title 'Get Sync' 
; This routine, gets the. sync word.' 
; on exit - 

; al » right justified sync value padded cn right with zeros 

';. r6 * updated • ■ 

, ; . ; y:sc » updated ■ ■ ■ ' 



a2 

al 

b * 

xo 

xl 

yo 



• destroyed 
b destroyed 

destroyed 

■ destroyed^ 

* destroyed 

■ destroyed 
destroyed 



r4 - destroyed 
n4 « destroyed 

include ' def .asm' 

org phe : 



get sync • 



move #NSYNC,n4 

jsr getvalue 

move M >GETSYNCMSK, xl 

and ■ xl. a. 



; number of bits 

;get sync right justified 

; mask for sync word hi order 
;mask off any high order i's 



rts 
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opt . 



(c) 1991 . Copyright Corporate Computer Systems. Inc. All rights reserved. 
\URDCDSYN\getsystd.asm: set led for MPEG- ISO vs eld CDQ2000/CDQ1000 

title . .'Get Syst' ;': -\-.v 

This routine; decodes" the MUSICAM frame header information .. 



on exit 

x:findidbit 
y:Ctlflgs - updated 



x: fndbit : \: 

x:fndsmpl: 

yrbitsfrm 

xrpadbit. 

y:privacybit . . 

y.frmtype 

y : sibound 

y:maxsubs 

y: copyright 

y: original 

y: emphasis 

x:AllwAdd 

x:skftbl 

a - destroyed 
b • destroyed 
x0 - destroyed ., 
xl » destroyed 
y0 -destroyed 
yl • destroyed 
ro - destroyed 
rl - destroyed 
r4 -destroyed 
n4 ■ destroyed 



1-high sample rate, 0«low sample rate 
{ PROTECT bit: 0-YES for checksum, . l-NOV 
(STEREO vs MONO bit: 0»stereo, l»mono) 
(JOINT FRAMING bit: 0-not. l-jcint) 
<SPLIT~MONO_FRAM£ bit: 0-nc, 1-yes). , 
bit rate, code 
sampling- rate .code 
actual frame length in bits 

0«f rame not padded, 1-frame padded v ,8 added b 
privacy bit value in frame header 
stereo, joint stereo, dual mono or monc 
joint stereo intensity boundary subband count 
number of sub- bands encoded in BAL' s 
copyright bit value in frame header 
original /home bit value in frame header 
emphasis value, in. frame header 
address. of the Allowed table to use 
address of the BAL' s bit table to use . 



by getvalue call 



include 
include 

org 



'def .asm' 
'box_ctl.. asm' 

phe : . ■ 



getsyst 

; decode the bits 0 thru 3 of the frame header: 

• •• bit description".-' . 

' ■' hiah cr low sampling rate: ' 

' n.gn cr xo ^ 44-1 - f „ d 32 K sampling rates. 

. '. 0 - low rates 24, 22.05 and 16 K. sampling rates 

V 1-2 .'.MCSICAM. Layer: . 
•' ; - ii m Layer I : " 

io -.Layer. II , . ' 
; ' 01 - Layer: III ; . • • - ... 

• CRC-*« checksum frame header protection: . 
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0 a cnecksum protection encoded after frame header 

1 * NO checksum protection 



move #NSYSTHDR_1 , n4 



3sr 

move 

and 

bset 
move 
jclr 
bclr 



;get field *l (bits 6-3 in hdr) ■" 
; bit 0 indicates protection checksum.; 
; : . .. . 0 - yes checksum included 

: 1 * no checksum included . - . . 
;get data right justified 
;mask for get value of header field 1 
;mask off high order bits 
; & set len of bit rate-bits 4-7 in hdr 
.•default that CRC protection applies 
.see if CRC bit set indicating not appl 
#0,y: <not_appl,_ gsyst_00 ;hdr shows zero/. CRC is included - 
# PROTECT. y : <ctlf Igs ~ ;set that CRC protection NOT applicable 



getvalue 

# >MASKSYSTHDR_1 . xl 
XI, a #NBITRATE.n4 

# PROTECT .y:<ctiflgs : 
: al,y : <not_appl 



; _gsyst_C0 . '• 

; - set' the high or low sampling rate ID code ■ 

bset #0 .x: fndidbit ' ; default, with high' sample rate bit on 

' jset #3,y :<not_appl,_gsyst_01 ;if set for high. ■ continue 

bclr. #0-,x: fndidbit •. ; reset to low sample rate, bit on 

_gsyst_Cl 

; decode -the bits 4 thru 7 of the frame header: bit rate 



jsr getvalue 

move # >MASKNB I TRATE , xl 

and. xl , a y:spltrte.xl 



;get bit rate code right justified 
.•mask for getvalue of frame bit rate 
;mask off high order bits 
.; & get the 1/2 bit rate code 
;save header bit rate code 



move al,x:fndbit 

;test for CD020CO split mode of transmission and check for a split mono frame 
; , . . bclr asPX-iTJAONC^FTlAME. y:<ct If Igs ; clear indication for split mono. 

isPLIT MODE, y: <ctl figs, _gsyst_05 .-test for. split, mode • cf trans 



Dclr 

move 

cmp . . 
jne ; ; 



al,a 
xl,a 

_gsyst_05 



; clean up junk after getvalue' ' 

;see if frame rate same as split race 

; if not, we should have a full frame 



; since we matched bit rates, this must be a 1/2 bit rate in mono 

bset #SPLITJ40N0_FRAME,y:<ctlflgs vindicate for ancillary data 

_gsyst_05 \- ; 

; decode the bits 9 . and 9 of the frame header: sampling rate 



move 8NSAMPLERATE ,n4 

^sr getvalue 

move «>MASKNSAMPLERATE.xl. 

and xl.a #NSYSTKDR_2 . n4 



. move al,x:fndsmpl 
.•decode the fcits iO and ii of the. -frame header: 



;eat sampling rate . 
;get sampling rate right justified 
;mask for getvalue cf data sampling rate, 
.-mask off high order bits 
; & set len field #2 (bits 10-11 in hdr: 
;save the header sample rate ; 
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bit 'description 

10 padding bit : 

0 - frame is not padded. 

1 « frame is padded with 8 bits 
11. privacy bit 



;test the frame, padded f lac; in header;(bit 10} and update frame bit count 



.jsr getvalue . 

move . ' #>MASKSYSTHDR 2,xl 

and . xl,a # >PAD~SLOT ( xl 

move al, y:<not_appI 

move " . y:frmbits,a 

bclr #0,x*padbit . 

jclr #l,y :.<not_appl, gsyst 

bset . #0,x:padbit T . " 

add xl,a 



06 



,get data right justified 

;mask off high order bits 
; 4 '.get the padded bits added to frame 
;see if frame padded bit set ' -. 
;get the unpadded frame bit count 
^default that the frame is not padded 
;if hdr bit net set. no padded bits 
findicate padded bits 
;add pad bits to frame bit count . 



_gsyst_0 6 . 

; set the frame length in bits (normal or padded with 8 bits) 
; set the frame, privacy bit in" header (bit 11) 



move a,y:bitsfrm 
bclr #0,y :privacybit 
. CLR_PRIVACY_BIT DCD 

jclr 

bset #0,y rprivacybit" 
SET PRIVACY BIT DCD 



# 0 , y : <not_appl , _gsys t_0 8 



;store actual frame, bit count 

; default the frame header privacy bit 

?in decoder status 

;set the frame header privacy bit 
; in decoder status: 



_gsyst_08 



;decode the bits 12 and .13 of the frame header: frame type 
; .. 00 * FULL STEREO : - (2 channels) . 
; 01 * JOINT STEREO (2. channels); 
; . 10 » DUAL MONO (2 channels) 

11 - MONO . "' (1 channel) 



ttNFRAMETYPE , n4 ;get frame type (bits 12-13 in hdr) 

getvalue , ; get frame. type right justified - 

#>MASKFRAMETYPE,xl ;mask for getvalue of framing type 

xl,a. #NSTINTENSITY.n4 ;mask off high order bits 

; U get stereo intesity (bits 14-15) 
move al f y:frmtype . ; save type of frame 



move 
jsr 
move 
and 



;set the default MAXSXJBBANDS as .for. 2 channel /frames 



move #oldccs,r0 . 
move y:maxsubs_2,yl 



;to test if .old CCS CDQ frames . 
/default to 2 channel . MAXSXJBBANDS 



■V if; the old CCS flag is set to decode from old CCS CDQ' s, use mono MAXSXJBBANDS 



jclr '. , #0,y: (rO) ._gsyst_09 
move y;maxsubs_l,yl " 

_gsyst_09 

' ;set the cype cf frame flag /. 



;if MPEG- ISO, continue 
.•default to. MONO MAXSXJBBANDS 
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■ novc 




move 




cmp 




jne 




. bclr 




: - bclr 




jmp 








cmp. 




jne 




. bclr 




bset 




jmp , 


_gsyst_ 


_20 ' •■" 




cmp 




■ jne - 




bclr 




bclr 



. 3 nip 

_gsyst_30 . 
"■ ~ bset 
bclr 



yirrrctype.a 
. #>FULL STEREO , xl ' 
xl.a 7 #>^OINT_STEREO,xl 

gsyst 10 ; " . 

tfSTEREO vs MONO. y : <ctlf lgs 
# JO INT_FRAMING , y : < ct 1 f lgs 
_gsyst~40- 



xl,a ■ #>DUAL.xl ■ 
. _gsyst_20 7 ' . 

?STEREO vs MONO , y : < ct 1 f lgs . 
. #JOINT_FRAMING,y:<c-lflgs . 
_gsysc340- 



. xl, a . 
_gsyst_30 

. # STEREO_vs MONO , y : < c t ,1 f 1 gs 
#JOINT_FRAMING f y : <ctlf lgs 
_gsyst~4 0 . 



# STEREO vs_MONO, y : cctlf lgs 
#JOINT_FRAMING, y : <ctlf lgs : 



; get the frame type 



;set the MAXSUBBANDS for MONO channel frames 
move / y : maxsubs_l , yl 



; indicate stereo samples 

; clear joint stereo indicator 



; indicate stereo samples 
.; indicate stereo samples 



;dual channel is same as stereo 
.■indicate stereo samples 
.•clear joint stereo .indicator 



/indicate mono samples 
.•clear., joint stereo indicator- 



; get to MONO MAXSUBBANDS 



;.if SFL:T_MONO_FRAME, use split frame mono MAXSUBBANDS 

.. jclr #SPLITJ10NO_FRAME,y:<ctlflgs,_gsyst 40 1- . 

move y:spltmaxsubs,yl " ;get to split MONO MAXSUBBANDS 

_gsyst_40 - ■ 

;set. the number of sub-bands encoded in the BAL' s 

: move. yl,y:<maxsubs ;set the working MAXSUBBANDS for frame 

; light led to indicate MPEG-ISO compatible frames 

; , or old CCS CDQ2000/CDQ1000 non-conforming frames at low bit rates 



#oldccs f rO. 



move 

nop " 

jclr #0.y: (rO) , iso led 
. CN_MPEG_ISO_vs_CCS~LED~DCD 
j set 



;to test if old CCS CDQ frames 



. ,;if; ISO.- set' led as ISO 
_ _ ; indicate old ccs frames 

#l,y:.<r0) ,_do_leds . ;if CDQ1000, set led as CCS 
jset .. . #STEREO i _vs_MONO,y:<ctlf lgs,_iso led ; if MONO, ISO led 
move . #>SAM48K,xO . ; test for 48 K sampling 

move . #>SAM32K,xl ; test for 32 . K sampling 

move . #>BITRATE_56,yO ;low bit rate code 56 K 

move y: smplrteTa. ;to test sample rate code 

cmp . x0,a . #>BITRATE_96,yi ;see if 48 K sampling 

; k set hi bit rate 96 K @ 48 
jeq _tst bit .. ; if 48, test bit rate range 

cmp xl,a~ #>BITRA7£_160.yl ;see if 32 K sampling 

■'; & set hi bit rate 96 K-S"32 
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■ jne ■ . _iso_led.\ \ ; if not 32\. sec ISO led 

_tst_bit ' ''. ■ . / 

~" .. move. y:b"itrate,a • .. ,*check bit rate in the range 

cmp y0»a ;test vs lowest ISO high code 

• jit-- _iso_led ■ v ;if less, ISO led 

cmp., yl,a~ • ;test vs highest ISO high code 

-jle • _do_leds ■ ;if -less or equal, leave CCS led . ' 

_isb_led 

~ . ~" OFF_MPEG_:SO_vs_CCS_I»ED_DeD ;indicate iso compatible frames 
do leds ■ 

SET_LEDS_DCD ■ ; 

; decode the bits 14 and 15 of the frame header: 

; mode extention (joint . stereo intensity boundary) 

00 « stereo for sub-bands 0 thru 3, joint for sub-bands 4 and up 

01 =* stereo for sub-bands 0 thru 7, joint for sub-bands 6 and up 

10 ■ stereo for sub-bands 0 thru 11, joint for sub- bands 12 and up 

11 » stereo for sub -bands 0 thru IS, joint for sub-bands : 16 and up 

jsr getvalue . ;get data right justified 

. move.. #>MASKSTINTENSITY, xl . ; mask for getvalue of intensity bound 
and xl,a #BOUND_4.r0 ;mask off high order. bits 

• set up for joint just in case" 
jclr #JOINT_FRAraNG,y:<ctlf lgs,_gsyst_90 .-intensity is meaningless 

move al,a : • ; clear off any junk.' . 

move" #>INTENSITY 4,b ,-get code for channels 4-31 intensity 

cmp a.b #>INTENSITY_8,b .- 

• jeq _gsyst_90 • 

■ - cmp. - a,b #>INTENSITY_12,b ;" 

jne _gsyst_80 " \ ; not joint, intensity is meaningless 

move ?BOUND~8,rO 
' jmp ." _gsyst_90 '. \' 

gsyst 80 

"cmp a,b #BOUND_16,rO 

jne - gsyst 90 ' . ; not joint, intensity is meaningless 

move ¥BOUND~12, rO 

_gsyst_9Q . 

move rO,y:sibound . save intensity stereo sub-band bound 

. ; decode the bits 16 thru 19 of the frame header: 
; . ■■ bit description 

,* 16 copyright bit : 

0 ■ no copyright .• ■ 

1 - protected by. copyright 
.; 17 original/home bit: 

- . • 0 - bitstream is a copy 1 ' 

; .. 1 • bitstream is an original ... ,. 

18 -19* emphasis: 

; . 00 ■ ho emphasis . 

"01 -m SO/ 15 microsec emphasis / 
/■ 10 .« reserved -\ ■ 
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r ' .11. «. CCITT J. 17 emphasis. 

move : #NS YSTHDR_3 , n4 
jsr getvalue 

move ■ , # >MASKSYSTHDR_3 , xl ... 
and ■■ . xl,a " ■ "* . 

move al , y : <not_appl 

clr ' : a 



;gec field »3 (bits 16-19) 
;get data right, justified 

; to mask off unwanted bits 1 
;raask off the unwanted bits 
; move to addr to be tested 
;to restore y:<not_appl as all 0's 



;set the copyright bit, original /home bit and emphasis code- from header 

bclr #6, y: copyright /default bit as not set 

. . CLR_COPYRIGHT_BIT_DCD ; in. decoder status 

3clr #3,y:<not~appl,_gsyst_9l ' •■ . ;if bit 16 not set; continue 
bset #0,y: copyright; . .-set the copyright bit . 

■ SET_CCPYRIGHT_BIT_DCD ; in decoder status . • 

_gsyst_9i ■ 

~ " bclr #0,y: original ;default bit as not set 

CLR_ORIGINAL_BIT_DCD; . ; in decoder status 

jclr - #2,y:<not_appl,_gsyst_92 ;if bit 17 not set,, continue, 

bset ■: #0,y:original ;set the original/home bit 

: SET_ORIGINAL_BIT_DCD . . ;in decoder status 

_gsyst_92 

. " move a,y: emphasis .-zero the emphasis code 

CLR_EMPHASISjBIT_ 0_DCD ■' '.: .;in decoder status 

•.. CLR_EMPHASIS_BIT\llDCD . . ;in decoder status 

jclr #l,y7<not_appl,_gsyst_93 ; if bit 18 not set, try. bit 19 

bset #1 , y :emphasis ~ . .. ~ ;set bit 1 of emphasis code 

SET EMPHASIS BIT 1 DCD ;in decoder status 



gsyst 93 

- ~ jclr 

bset #0/y :emphasis 
SET EMPHASIS BIT 0 DCD 



#0,y :<hot_appl,_gsyst_94 Vif bit 19 not set, finish up 

* "* ~" ~ ;set bit 0 of emphasis code 
;in decoder status 



_gsyst_94 / 

..•restore y.:<not_appi to all zeros 
move a,y :<not_appl 



;reset the dummy variable 



;Set the proper Allowed table and BAL's bit table addresses: 
; test for low sampling rate Allowed table 



move 

nop 

jset 

move 
move 
jmp 



#smplidbit,rO 

#0,y: (rO) ,_gsyst_9S 

#Allowed_3,rO : 
,#skf tbl_3 , rl 
_gsyst_100 



;addr of frame header ID bit (0 low) 

;if high rate,. select Allowed table; 

,-addrcf low sampling allowed table 
;addr of low sampling BAL's bit table 
,-go to store Allowed table address 



_gsyst_95 " \ ■ "* ■ 

; Set the proper Allowed table address based on working MAXSUBBANDS (y : <maxubs » 
; if ; less than 27, used table 2 
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move y : <maxsufas , xC \ 

■move " ' **>27 # a ■ 

move r-'" *skftbl_l.rl 

cmp xO,a . #Allowed_l,rO 

jle _gsyst_100 



•196- . ; > . . 

; get current MAXSUBBANDS V 

;to see. which of 2 tables applies 
. ;addr of high sampling BAL's bit table 

;see if need the low bit rate table . 
'• i set up as regular Allowed table- - 

; regular Allowed table applies 



; select the lower bit rate Allowed table 



move 
move 



#A1 lowed 2,r0 
HsJcftbl 2,rl 



,-addr of high sampling. BAL's bit table 



_gsyst_100 

; set. the address of the selected Allowed table 
; set the address- of the selected BAL's bit table 



move 
move 



rO, x:AllwAdd' 
rl.x:s)cftbl 



rts 
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; . tc) 1991. Copyright Corporate Computer Systems, Inc. All rights reserved. 

; \URDCDSYN\syntn.asm • 

' title 'Synthesize a group of sample and output audio' . 

;synth.asm: this is the main of - the. poly synthesis routine 
; it handles a new group of samples to be decoded and inverse quantized 
; for stereo a group of samples contains 192 samples (96 left & 96 right! 
; if mono a group of samples contains 96 samples only 



include 
include 



' def .asm*, 
'box cel. asm' 



: xdef . 
org 

stsynth_yhe 

dualchan 
synthN6Save 



endsynth_yhe 

' endsec 



section highnvisc 
xdef dualchan 

synthN6Save 



yhe: 



ds 
ds 



; control for channel swap ctls 
/instead of ssh 

;bit 0 ■! means copy left to right 
1 means copy right to left 
1 means swap left & right 
1 means mute both left & right 



;bit 1 
;bit 2 
;bit 3 



. synth 



org 



move 
move 



phe : 



#dualchan,rO 
#ASMData.rl 



;set addr of two chan ctls 
; position to left channel 



;see if the frame- is to be muted ■ . . 

jclr #MUTE_LEFT_and_RIGHT,y: trO) f ^synt_00 
;set the number of words in both channels for the MUTE do loop 



move #NUMSUBBANDS«NPERGROUP*2 , nO 
move ' #0. nl 
jmp _synt_20 



;2 channels numb words to mute 
;hold position at left. channel 
; go to the mute loop 



_synt_Q0 

;if a stereo frame/ checkout for special mute or swaps 
jclr : #STEREO_vsJ*ONO,y:<ctlflgs,_syrt_40 



move #NUMSUBBANDS* NPERGROUP.nl. 
move '" rl, rO • ' 
move ■IrU+nl •■ 



; spac i ng t o r i ght channe 1 
.-position to left channel 
( -addr of right channel 



;copy the left intc righ: 
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do 

move 
move 



# NUMSUB3ANDS -NPSRGROUF , _synt_0 5 



x: (rO) *,x0 
xO,x: (rl) * 



/get left . channel value 
;put left value into right. 



; if we do not have to mute * a channel (mono to both) / 
/ s^ip ahead. tc restore registers used 

: jset •MONOJJO^^ ; out to both, go restore regs 

; set the number of words in one channel for the mute do loop 

move *NUMSTJBBANDS *NPERGROUP , nO ;l channel numb words to mute 

; set up to mute the channel not selected for mono output 



move 
move 



* ASMData , rl 
#0.,nl 



/position to left channel 
; start at left channel 



;if not the left channel for output, continue 

; else, position to the right channel for muting 



jset 
move 



#M0NO_OUT_CHA*rNEL , y : < ct 1 f lgs , synt 20 ; if right zero left 
ft NUMSUBBANDS *NPERGROUP , nl ~ ;else, zero thf right Channel 



_synt_20 

/mute the ; proper channel (s) 



move 
move 

do : 
move 



_synt_30 



jmp 



#0,x0 
(rl)*nl 

nO, synt 30 
: x0,x: (rl7* 



_synt_90 



; to mute the channel 
•addr of channel to mute 



,-rero value, in chosen channel 

' ■ .■ (■■..■■ ■ . ' 

;do the polysynthesis '' " 



_synt_4C ' '.- 

/see if the two channel frame requires any swapping* 

swap left and right 
; ■ left - into right 

;•• .' right into left ' • 

jclr #SWAP_LEFT_and_R I CHT , y : (rO ) , _synt 50 

/swap the left and right channels •.- 



.move #NUMSUBBANDS*NPERGROUP.nl 
' ' ' move rl,r0 
move : .. (rl) *nl 

•copy. the left . into right 



do . 
move 
move 



tNTJMSUB BANDS ♦ NPSRGROUP , _synt_4 5 



x: (rC) ,xQ 

.'xHrl) ,xl"/ 



/spacing to right channel 
/position to left channel 
;addr cf right' channel 



/get left "channel. value ' 
/get right ' channel value 
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move 
move 



_synt_4 5 



xO , x : (rl) • 
xl.x: (rC; ■ 



_synt_80 



;put .left- value' into right 
;put right, value into left 



;go see if any channel mutes 



3<np 

_synt_50 ' ; 

;see if a copy the left into .the right • ... 

' jclr #C0?Y_LEFT_toJlIGH7,y: trO) ,_synt_60 ■ rif not copy left ' to . right 
; copy the left channel, into .the right channel .. 



move #NUMSUBBANDS*NPERGRCUP,nl 

move rl, rO 

move / . (rl) +nl 

jmp _synt_70 



; spacing to right channel. 
;position to left channel 
;addr of right channel . 
;do the copy 



_synt_60 •". 

; see if a copy the right into the left. 

jclr #COPY_RIGHT_tc_LErT,y: trO).,_synt_80 ; if not copy right to left 
;copy the right channel into the left channel 



move 
move 
nop 
move 



# NUMSUB BANDS *NPERGROUP, nO 
rl,r0 .. 



(rOi+nO ; / . 
. _synt_7C "■ 
.-copy the one channel into the other , 

#NUMSUBBANDS*NPERGROOT,_synt_8C 



; spacing to right channe 1 
♦-position to left channel 

;addr of right channel 



do 
move 
move 



x: (rOU,xO 
xO,x: trl)- 



;get source channel value 

; put. source value into des'tin 



_syht_80 



;see if either 


channel is to be muted . 






- jmp- " 


' _synt_05 '. 






_synt_9C. 








;pass both channels to the poly synthesis 


routine' ■ 




move 


.. #ASMData, rO ■' 






move 
move 
.... move' '. 
move' 


n€/y:synthNSSave 
' #1023, m2 ; ., . 
m2 ,m3 

#32, nO .'. , t '. 


. ;save .* 

;set to' be 
. ■ ' ; set to .be' 
'•" ?set scale 


a mod '.1024) 
a mod -: 10 24) 
factor- - 


: ' ^ sr . v 


" polysynt 






move 


y:synthN6Save f n€ 


. . "; restore ■ n6 
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; restore tc linear .addressing ' 
/restore tc linear addressing : 
; restore to linear addressing 
; restore to linear addressing , 

•rts • [ ■ 'y V 



move y : linear , ml 

move, ' ml, m2 ■.. 

move; . \ ml/m3 .. 

move \ ml,m5 
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; (c) 1991. Copyright. Corporate Computer Systems, Inc. All rights reserved.. 
; c:\musicam\dsp\acorn\urdcdsyn\translte.asm 
include ' . . \ultma\ transit e. asm' "' 
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CLAIMS 

What is claimed is: \ 

1. An audio transmission system comprising: 

a coder for coding an input audio signal into 
5 ; a digital signal to be transmitted through a 

traditional analog telephone network, the digital 
signal having a transmission rate of 28.8 kilobits 
/ per second or less ; and 

a decoder for decoding the digital signal that 
10 is received form the telephone network to provide 

an output; audio signal with a frequency range 
greater than 4 kilohertz. ; 
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